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FOREWORD 


This  report  documents  the  second  phase  of  the  multi-phase  Integrated 
Facilities  Requirements  Study  (IFRS).  It  has  been  prepared  for  the  Systems 
Analysis  Division  of  the  Office  of  the  Assistant  Commander  for  Facilities 
Planning  (Code  20),  Naval  Facilities  Engineering  Command  (NAVFAC) , 
Department  of  the  Navy,  as  part  of  Contract  N00025-67-C-0031  (NBy-78672) 
awarded  to  Operations  Research,  Inc.,  in  June  1969. 

In  Phase  I,  two  analytic  submodels  were  developed.  The  first,  a 
Logistics  Support  Requirements  Generator,  estimates  personnel,  aircraft,  and 
fuel  requirements  for  each  training  phase.  The  second,  a Pacing  Facilities 
Requirements  Submodel,  calculates  facility  requirements  for  each  phase  of 
training . 

The  purpose  of  the  Phase  II  study  was  to  develop  a preliminary  total 
systems  IFRS  model  (including  the  two  submodels  developed  in  Phase  I,  as 
well  as  base  loading,  facilities  excess/deficiency,  and  total  cost  submodels), 
and  automate  the  model  so  that  it  provides  quick,  accurate,  and  relevant 
information  for  use  in  the  decision-making  process.  The  present  IFRS  model 
is  working  to  provide  useful  information  to  the  decision  maker.  Refinement 
and  expansion  of  the  present  Phase  II  model  will  be  completed  in  Phase  III. 

This  report  is  composed  of  four  volumes.  Volume  I contains  a summary 
of  the  IFRS  management  planning  tool.  A detailed  discussion  of  each  of  the 
five  submodels  and  associated  data  files  is  contained  in  Volume  II.  A manual 
discussing  the  use  of  the  automated  model  is  provided  in  Volume  III  and  the 
programmer's  manual  is  contained  in  Volume  IV. 
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The  IFRS  model  was  developed  and  programmed  by  staff  members  of  the 
Economic  Analysis  Division  of  Operations  Research,  Inc.,  under  the  direction  of 
Dr.  William  J.  Leininger,  Vice  President  and  Division  Director,  and  Thomas  N. 
Kyle,  Project  Manager.  The  project  team  members  were  Richard  D.  Heilbron, 
John  H.  Avila,  Frederick  L.  McCoy,  Thomas  L.  Shaffer,  and  Dr.  Joan  L.  Turek. 

Mr.  Dennis  Whang  of  the  Systems  Analysis  Division  of  Facilities  Plan- 
ning was  contract  monitor  for  NAVFAC.  In  addition,  valuable  assistance  was 
provided  by  many  other  Navy  personnel  including,  in  particular,  those  in  the 
Office  of  the  Staff  Civil  Engineer  and  the  Training/Plans  Division  of  the  Naval 
Air  Training  Command  and  in  the  Systems  Analysis  Division  of  NAVFAC.  The 
authors  gratefully  acknowledge  the  contributions  made  by  all  of  these  people  to 
the  development  of  the  IFRS  model. 
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I.  INTRODUCTION 


1 . 1 This  volume  describes  the  overall  system  characteristics  and  flow  for 

all  computer  programs  included  in  the  automated  Integrated  Facilities  Require- 
ments Study  (IFRS).  The  purpose  of  the  programmer's  manual  is  to  provide  the 
verbal  description,  flow  charts,  variable  dictionary,  program  and  subroutine 
dictionary,  and  program  listing  for  each  of  the  computer  programs  that  consti- 
tute the  automated  model  of  the  IFRS.  This  programmer's  manual  provides 
CNATRA  personnel  with  the  information  required  to  understand  the  logic  of  the 
IFRS  programming  and  to  make  changes  to  the  programs  as  necessary. 

1 .2  The  IFRS  programs  have  been  written  in  FORTRAN  IV  for  use  on  a Gen- 
eral Electric  (GE)  635,  Mark  II,  time-sharing  computer  system.  It  is  assumed 
that  the  programmer  using  this  documentation  is  fully  acquainted  with  G.  E. 
Time-Sharing  Mark  II- FORTRAN  ' 


— Converting  the  computer  programs  contained  in  the  automated  IFRS  model 
for  use  on  other  FORTRAN  IV  systems  would  require  major  revisions  to  each 
individual  computer  program's  input  and  output,  due  to  a special  feature 
in  the  GE  time-sharing  FORTRAN  that  allows  unformatted  input  and  output, 
an  adaptation  of  a BASIC  language  feature,  The  authors  of  the  IFRS  com- 
puter programs  utilized  this  feature,  when  practical,  to  provide  the  user 
with  maximum  terminal  input  flexibility.  In  addition,  storage  restrictions 
might,  in  other  FORTRAN  IV  systems,  require  resegmenting  the  IFRS  system 
so  maximum  program  storage  requirements  would  not  be  violated. 


1 
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1 .3  Because  of  the  "in  core"  word  limitation  imposed  by  the  GE  635  time- 

sharing computer,  the  five  submodels  of  the  automated  IFRS  model  are  comprised 
of  15  different  computer  programs.  This  system  will  only  permit  a program  of 
approximately  18,000  36- bit  words  to  reside  within  the  computer  memory  at  any 
one  time.  Since  the  total  IFRS  model  is  much  longer  than  this  limit  (approxi- 
mately 80,000  36-bit  words  in  the  unsegmented  version),  it  was  necessary  to 
use  15  operating  programs.  Table  1 lists  each  of  these  programs,  their  source 
and  compiled  names,  and  source  and  compiled  lengths.  The  asteric  in  the  sixth 
character  " in  the  compiled  name  allows  these  programs  to  be  accessed  by 
all  users  (with  certain  restrictions)  having  similar  GE  user  numbers. 

1 .4  Figure  1 shows  the  overall  flow  through  the  15  programs  in  the  IFRS 

model.  Also  shown  are  the  various  data  files  either  read  or  written  during  the 
course  of  a run  through  all  the  computer  programs.  A brief  description  of  all 
computer  programs  and  data  files  utilized  by  the  automated  IFRS  model  is  pro- 
vided in  Table  2. 

ORGANIZATION  OF  MANUAL 

1 .5  The  remaining  portion  of  this  manual  describes  each  of  the  15  computer 
programs.  For  each  program,  a detailed  verbal  description,  flow  charts,  variable 
dictionary,  routine  dictionary  (briefly  describing  the  function  of  each  main 
program  and  its  subroutines),  and  program  listing  are  provided.  In  addition, 
the  program  listings  for  the  four  utility  programs  are  included. 

1.6  Wherever  possible,  variable  names  were  selected  as  mnemonics.  For 
example,  in  PROGRAM  LSRM  , the  variable  LEVLSR  denotes  the  level  of  complex- 
ity within  the  LSR  Generator.  In  PROGRAM  PART2 , the  variable  ACREQ  denotes 
the  aircraft  required,  etc. 
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AUTOMATLD  TFRS  PROGRAMS 


Normal 

Running 

Sequence 


Program 

Name 


Compiled 

Program 

Name 


Source 

Program 

Length 

(1,000  words) 


Compiled 

Program 

Length 

(1,000  words) 


LSRM 


PART2 
PART3 
PART  4 
PARTY 
PART5 
PARTX 
PART  6 
PART7 
PARTS 


XLSRM* 

XLSR1 * 

XLSR2* 

XLSR3* 

XLSR4* 

PART 2* 

PART 3* 

PART4* 

PARTY* 

PART5* 

PARTX* 

PART 6* 

PART7* 


figure:  1 . OVERVIEW  or  IFRS  computer  program 


TABT.F.  2 


COMPUTER  PROGRAMS 


Name 

Type 

Description 

LSRM 

Program 

Enters  level  of  complexity  and  annual  data 
used  in  LSR  Generator 

LSR 1 

Program 

Inputs  and  modifies  LSR  training  phase  data 
file 

RASCAS 

Data  Pile 

Training  phase  data  used  by  LSR  Generator 

SAVBCS 

Data  Tile 

Modified  training  phase  data 

LSR2 

Program 

Computes  student  statistics  for  all  training 
pipeline 

PIPE 

Data  Tile 

Pipeline  data  for  each  training  pipeline 

SPIPE 

Data  File 

Modified  pipeline  data 

LSR3 

Program 

Computes  LSR  summary  statements 

r 

| 

LSROUT 

Data  File 

LSR  summary  statements 

LSR4 

Program 

Develops  runway  reguirements 

T 

| 

RUNDAT 

Data  File 

Runway  data  for  each  training  phase 

RUNWAY 

Data  Tile 

Runway  requirements 

r 

PART2 

Program 

Reads  Base  Data  File,  Aircraft  Data  File, 
initializes  on  various  returns  from  LSR 
Generator 

u 

PART  3 

Program 

Reads  LSR  data  by  phase,  records  phase 
allocations,  and  aggregates  LSR  data  by 
base 

BASED* 

Data  Tile 

Base  dependent  parameters 

AC  DAT* 

Data  File 

Aircraft  data 

RETURN 

Data  Tile 

Updated  inventory  for  multi-year  runs 

• 

RETURN  1 

Data  File 

Phase  allocation  stored  for  regeneration 
upon  return  from  LSR 

I 
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TABLE  L (Cont) 


Name 

Type 

Description 

SCRI 

Scratch  file 

Used  to  pick  off  first  character  of  fuel 
type  names 

PART  4 

Program 

Reads  data  files,  processes  OLF  and 
runway  requirements,  air  saturation 

INVCO* 

Data  Tile 

Cost  data  for  facilities 

TABLE* 

Data  File 

Various  tables  for  computing  facility 
requirements 

RPIFI* 

Data  File 

Inventory  of  facilities  for  all  bases 

PARTY 

Program 

Computes  runway  deficits  and  costs 

PART5 

Program 

Computes  facility  requirements 

PARTX 

Program 

Places  common  variables  in  restart  file 

RESTART 

Data  File 

Provides  restart  procedure  immediately  pre- 
ceding excess/deficiency 

PART6 

Program 

Excess/deficiency  computations 

PART7 

Program 

Computes  facility  and  aircraft  invest- 
ment costs 

PART  8 

Program 

Records  present  phase  allocation  prior  to 
exit  to  LSR  Generator 

PART9 

Program 

O&M  cost  computations,  total  systems  cost 

II.  PROGRAM  LSRM  *_/ 
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PROGRAM  DESCRIPTION 

2.1  The  purpose  of  PROGRAM  LSRM  is  to  initialize  program  variables  for  the 
LSR  Generator.  PROGRAM  I.SRM  is  the  first  computer  program  to  be  run  in  the 
automated  IERS  system.  It  may  be  entered  from  three  sources:  (a)  directly  by 

the  user  from  the  time-sharing  terminal;  (b)  from  PROGRAM  PART8  when  constraints 
are  imposed  on  a previous  output  of  the  T.SR  Generator;  or  (cl  from  PROGRAM 
PART9  when  LSR's  output  from  another  year  is  desired.  Upon  entry,  the  eleventh 
position  in  common,  IS(7)  (named  ISWTCH(IO)  in  PROGRAMS  PART8  and  PART9) , 
is  tested  for  zero. 

2.2  When  I S (7)  = 0,  entry  into  PROGRAM  LSRM  comes  from  the  user,  making 
it  the  first  entry  into  the  computer  program.  The  level  of  I. SR  complexity, 

LEVLSR;  annual  fly  days,  AED;  and  annual  training  weeks,  WPY;  are  entered  by 
the  user.  These  values  are  checked  for  validity  and  stored  in  the  second, third , 
and  fourth  common  locations— ISW,  SW(l),and  SW(2),  respectively. 

2.3  Next,  or  when  IS(7)  > 0,  the  values  of  LEVLSR,  ATD,  and  WPY  are  set 
equal  to  their  respective  saved  common  values.  When  I S(7)  = 2,  the  LSR 
output  is  to  be  constrained,  and  the  level  of  complexity,  LEVLSR,  is  negated 
for  subsequent  reference.  Control  is  transferred  to  PROGRAM  LSR1  . Note  that 
the  first  11  common  locations  are  used  for  inter-program  linkages.  All  other 
stored  data  may  be  renamed  and  used  for  other  storage  locations  by  all  IFRS 
computer  programs. 

2.4  A flow  chart  of  PROGRAM  LSRM  is  shown  in  Tigure2.  Table  3 contains 
the  variable  dictionary  of  PROGRAM  LSRM;  the  program  and  subroutine  dictionary 
is  provided  in  Table  4.  The  program  listing  is  shown  in  Table  5. 


Programs  LSRM,  LSR1,  LSR2  , and  LSR3  constitute  the  LSR  Generator 
discussed  in  Volumes  I and  II. 
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TABLE  3 

PROGRAM  LSRM  VARIABLE  DICTIONARY 


Location 

Variable 

Name 

Dimension 

Common 

IY 

1 

Common 

ISW 

1 

Common 

SW 

2 

Common 

is 

7 

Common 

NAME 

25  ,3 

Common 

NPI.A 

25,3 

Common 

NFUEL 

25,3 

Common 

NACD 

25,3 

Common 

ATP 

25 

Common 

WK 

25 

Common 

NAC 

25 

Description 


Year — not  used 

Permanent  storage  for  the  level  of 
complexity  for  the  LSR  Generator 

SW(1):  permanent  storage  for 
annual  fly  days 
SW(2):  permanent  storage  for 
training  weeks  per  year 

I S ( 1 ) to  ISW(6):  permanent  storage 
not  used 

I S ( 7 ) = 0:  first  entry  into  PROGRAM 
LSRM 

I S ( 7)  = 1:  generate  an  LSR  output 
for  the  next  year 
IS(7)  = 2:  constrain  LSR  output 
for  current  year 

Name  of  training  phase  I — ' ( 3 
words  or  12  characters  permitted) 

Name  of  aircraft  types  for  phase  I, 

J = 1 , 3^/ denotes  up  to  3 aircraft 
types 

Fuel  type  for  phase  I,  aircraft 
type  J 

Academic  instruction  types  for 
phase  I 

Average  portion  of  phase  I a 
student  attrite  completes 

Instructor  tour  of  duty  length  for 
phase  I 

Number  of  aircraft  types  for  phase 
I (must  not  exceed  3) 


— Variable  type  I refers  to  integer,  F to  floating  point;  A to  alphameric 
variables . 

2/ 

— Note  the  above  11  common  locations  are  used  for  permanent  storage.  They 

are  not  overlayed  or  used  in  a different  capacity  by  any  of  the  15  1TRS  programs  . 

3/ 

— I refers  to  row  dimension. 


- J refers  to  column  dimension. 


TABLE  3 (Cont) 


Location 

Variable 

Name 

Dimension 

Type 

Description 

Common 

NAD 

25 

I 

Number  of  academic  instruction 
types  for  phase  I (£  3) 

Common 

WX 

25,3 

F 

Percent  flyable  weather  for  air- 
craft type  J in  phase  I 

Common 

GAS 

25,3 

F 

Fuel  consumption  rate  for  air- 
craft type  J in  phase  I 

Common 

AV 

25,3 

F 

Daily  aircraft  utilization  for 
aircraft  type  T in  phase  I 

Common 

FU 

25,3 

F 

Daily  flight  instructor  utilization 
for  flight  instructor  type  J in 
phase  I 

Common 

srH 

25,3 

F 

Student  flight  hours  to  complete  a 
successful  student  in  flight 
instruction  type  J in  phase  I 

Common 

FIH 

25,3 

F 

Flight  instructor  hours  required  for 
a successful  student  to  complete 
flight  training  type  J in  Phase  I 

Common 

FTR 

25,3 

F 

Flight  instructor  training  period 
for  instructor  type  J in  phase  I 

Common 

FSO 

25,3 

F 

Landing  support  officer  to  student 
ratio  for  flight  instruction  type  J 
in  phase  I 

Common 

AMO 

25,3 

F 

Enlisted  maintenance  personnel  per 
aircraft  type  J in  phase  I 

Common 

ASH 

25,3 

F 

Student  academic  hours  for  academic 
instruction  type  J in  phase  1 

Common 

AIH 

25,3 

F 

Academic  instructor  hours  for 
academic  instruction  type  J in 
phase  1 

Common 

A1TR 

25,3 

F 

Academic  instructor  training  period 
for  academic  instruction  type  J in 
phase  1 

Common 

ICOMMA 

1 

A 

Comma  " , " 

TABLE  3 (Cont) 


Location 

Variable 

Name 

Dimension 

Type 

Description 

Common 

IBLANK 

i 

A 

Space  ” " 

Common 

NO 

i 

A 

Letter  N "N" 

Common 

NYES 

i 

A 

Letter  Y "Y" 

Common 

NY 

i 

I 

Switch  for  Yes-No  input 
NY  = -1  previous  response  No,  "N" 
= 1 previous  response  Yes,  "Y" 

Common 

NPH 

i 

I 

Number  of  training  phases  ( s 25) 

Common 

IER 

i 

I 

Error  type  switch 

Common 

LEVLSR 

i 

I 

Level  of  complexity  for  LSR 
Generator 

Common 

IPH 

i 

I 

Phase  number  of  particular  train- 
ing phase 

Common 

WPY 

i 

F 

Training  weeks  per  year 

Common 

AFD 

i 

F 

Annual  fly  days 

Common 

KILL 

i 

I 

Number  of  total  training  phases 
deleted  in  current  run  from  data 
base 

Common 

IID 

i 

I 

Temporary  storage  for  subroutine 
transfer 

Common 

FID 

i 

F 

Temporary  storage  for  subroutine 
transfer 

Common 

KILLS 

25 

I 

Phase  numbers  of  deleted  phases 

Common 

SI 

25 

F 

Student  input  for  all  pipelines 

Common 

TSOUT 

25 

F 

Student  output  for  all  pipelines 

Common 

SO 

25 

F 

Student  output  for  particular 
pipeline 

Common 

. 

IBC 

1 

I 

Base  case  switch 

= 0:  base  case  data  have  not  been 
modified 

= 1:  base  case  data  have  been 
modified 

I 

I 
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TART.F!  3 (Cont) 


Location 

Variable 

Name 

Dimension 

Type 

Description 

Common 

IL 

1 

I 

Line  number  on  output  file  and 
temporary  storage 

Common 

IP 

1 

I 

Element  number  for  modified  phase 
data 

Common 

N 

1 

I 

Number  of  phases  to  be  deleted  or 
1 isted 

Common 

ITEM 

1 

I 

Item  number  of  phase  data  to  be 
tested  for  validity 

Common 

I DEL 

51 

1 

Numbers  of  phases  to  be 
deleted  or  listed.  Note  even 
numbered  fields  contain  a 

Common 



BMAX 



15 

F 

Maximum  expected  values  for 
training  phase  data 

TART.E  4 

PROGRAM  I.SRM  PROGRAM  AND  SUBROUTINE  DICTIONARY 


PROGRAM  T.SRM  T.TSTTNC 


100 
120 
1 40 
160 
180 
200 
220 
240 
260 
280 
300 
320 
340 
360 
380 
400 
420 
440 
460 
480 
500 
520 
540 
560 
580 
600 
620 
640 
660 
680 
700 
720 
7 40 

7 60 
780 
800 
820 

8 40 
860 
880 
900 
920 


C0MM0N  IY» I SW# SW< 2), I S< 7) 

C0MM0N  NAME<  25*  3)  # NPL AC  25#  3 ) # NFUEL C 2 5#  3 ) # N ACDC  25#  3)#  ATPC2  5)# 
4WKC25)#  T0  DC  25)  # NACC  25)#NAD(25)#WX(25#  3).  GASC2  5#  3)#AUC25»  3)# 
4FUC  25#  3)#  SFHC  25#3)»FIHC25#3)#FTRC2S»  3>,FS0C25#  3)#  AM0C25#  3)# 
4ASHC25#  3)#AIHC25#  3)#  AI  TRC25#  3) 

C0MM0N  IC0MMA#  IBLANK#N0#NYES#NY#NPH#  I ER»LEVLSR#  I PH#  WPY# 

4AFD#  Ki'LL#  1 1 D#  FI  D#  K ILLSC  25)  # SI  C 25)  # TS0UTC  2 5)  # S0C  25) 

C0MM0N  IBC# IL# I P#N# I TEM# I DEL  C 51 )#  BMAXC 1 5) 

KILL»0 
I BC=  0 

IFC ISC7) .NE.O)G0  T0  200 
5 PRINT  700 
10  INPUT  701 #LEVLSR 
I FCLEVL  SR)  30#  30#20 
20  IFCLEVLSR-4)40#  40#  30 
30  PRINT  702 
G0  70  10 
40  PRINT  703 
50  INPUT#  WPY#  AFD 
IFC  WPY) 9 0# 9 0# 60 
60  IFC  WPY -52. )70#  70# 90 
70  IFCAFD)90#90#80 
80  IFCAFD-365. ) 100# 100#90 
90  PRINT  702 
G0  T0  50 
100  I SW»L  EVL  SR 
SWC 1 )*AFD 
SWC  2) =WPY 
200  LEVLSR=ISW 

I FCLEVL  SR»  EQ»  0) G0  T0  5 
AFD=SWC 1 ) 

WPY  = SWC  2) 

IFC  I SC  7)  .EQ.2)LEVLSR=-LEVLSR 
CHAIN  "XLSR 1 *M 

700  F0RMATC  26H  ENTER  LEVEL  0F  C0MPLEXI TY/34H  1 N0  ADJUSTMENT 
4S  0R  M0DIFICATI0NS/23H  2 C0NSTRAIN  LSR  0UTPUT/2OH  3 M0DIFY 
4 PHASE  DATA/26H  4 C0MBINE  0PTI0NS  2 AND  3/) 

701  F0RMATC I 1 ) 

703  F0RMATC **  ENTER  TRAINING  WEEKS  PER  YI  \R"/n  AND  ANNUAL  FLY- 
4DAYS  CXX.#XXX. )”) 

702  F0RMATC  23H  INVALID  REPLY  - REPEAT) 

END 


III. 


PROGRAM  LSR1 


PROGRAM  DESCRIPTION 

3.  1 The  purpose  of  PROGRAM  LSR1  is  to  input  into  memory  the  data  associ- 

ated with  each  training  phase  and  to  update  this  data  base  when  applicable. 

Upon  entry,  a test  is  made  on  Switch  IBC  to  determine  whether  the  data  bse 
has  been  modified  in  a previous  year's  run.  Note  that  the  automated  IFRS  system 
can  be  run  sequentially  to  determine  total  systems  cost  for  several  years.  If 
Switch  IBC  0,  the  normal  base  case  data  file,  BASCAS,  is  accessed.  How- 
ever, should  IBC  = 1 , the  user  is  asked  whether  the  base  case  data  can  be  re- 
stored (BASCAS  accessed)  or  the  previously  modified  data  base,  SAVBCS, 
accessed . 

3.2  The  accessed  file  is  then  opened  and  rewound.  The  phase  data  for 
each  training  phase  are  sequentially  read  from  the  data  file.  After  the  phase 
data  have  been  read  for  an  individual  training  phase,  a transfer  is  made  to 
Subroutine  CHECKP  to  check  the  data  for  validity,  e.g.,  the  percent  of  flyable 
weather  may  not  exceed  100  percent,  etc. 

3.3  The  user  is  then  asked  whether  he  desires  a list  of  the  training  phases. 
With  a Yes  response,  "Y,"  transfer  is  made  to  Subroutine  PHASES  to  develop 
this  data  list.  The  accessed  phase  data  file  is  then  closed.  Next  a test  is 
made  to  determine  whether  the  user  desires  to  modify  the  phase  data  (LEVLSR  = 

3 or  4).  If  this  option  is  specified,  Subroutine  MODIFY  is  entered  to  revise 
the  phase  data.  Control  passes  to  PROGRAM  I.SR2  . 

SUBROUTINE  MODIFY 

3.4  The  purpose  of  Subroutine  MODIFY  is  to  update  the  training  phase  data 
base.  Upon  entry,  the  user  is  asked  whether  he  wishes  to  delete  a training  phase 


or  odd  a new  phase.  With  a Yes  response,  "Y,  " the  user  is  then  asked  whether 
any  training  phases  are  to  be  deleted.  With  another  Yes  response,  "Y,"  control 
passes  to  Subroutine  DELETE  to  delete  training  phases. 

3.5  The  user  is  asked,  when  applicable,  if  new  training  phases  are  to  be 
added.  When  a Yes  reply  is  given,  the  number  of  training  phases,  NPH,  is 
incremented  by  1 (not  to  exceed  the  25  maximum)  and  control  is  passed  to  Sub- 
routine NEWPHA.  This  process  is  continued  until  no  further  phases  are  to  be 
added.  After  all  new.  phases  are  added,  Subroutine  PHASES  is  called  to  list  the 
phases  which  currently  exist. 

3.6  The  user  is  th<  n asked  whether  h<  wish<  i to  11  t th<  pha  ■ lata  or 
make  modifications.  If  the  response  is  "Yes,"  he  is  asked  whether  any  phase 
data  lists  are  desired.  With  a Yes  reply,  Subroutine  EDITl  is  entered  to  input 
the  numbers  of  the  phases  which  are  to  be  listed.  Subroutine  LIST  is  then  called, 
once  for  each  item  of  each  phase  number  entered,  to  print  the.  phase  data. 

3.7  Next  the  user  is  asked  whether  any  training  phase  data  are  to  be  modi- 
fied. If  training  phase  data  are  to  be  updated,  the  user  specifies  the  training 
phase,  the  data  field,  and  the  element  to  be  revised.  The  new  data  element 

is  entered  in  Subroutine  UPDATE.  Note  that  if  the  number  of  aircraft  or  academic 
instruction  types  are  increased,  all  data  associated  with  them  must  be  entered. 
Tor  example,  if  the  number  of  aircraft  is  increased,  the  aircraft  names,  fuel 
names,  weather  factor,  daily  utilization  rates,  etc.,  must  be  entered.  After  a 
data  point  has  been  entered,  the  revised  value  is  automatically  listed. 

3.8  The  subroutine  cycles,  asking  the  user  whether  he  wishes  a data  list 

or  wants  to  modify  the  phase  data,  until  a No,  "N,"  response  has  been  received. 
With  a No  reply,  all  training  phase  data  are  tested  for  validity  through  Sub- 
routine CHECKP.  The  user  is  then  asked  whether  this  new  data  base  should  be 
saved.  When  revised  data  are  to  be  temporarily  stored  in  data  file  SAVBCS,  the 
modified  phase  data  file  includes  this  modified  data  base.  Control  returns  to 
PROGRAM  LSR1. 

SUBROUTINE  CHECKP 

3.9  The  purpose  of  Subroutine  CHECKP  is  to  develop  the  appropriate  routine 
linkage  to  test  all  phase  data  for  validity.  The  procedure  used  is  to  store  se- 
quentially each  phase  data  point  in  common  locations  IID  or  TID,  depending  on 
whether  the  individual  data  element  is  an  integer  (IID)  or  floating  point  (FID) 
number.  An  item  number,  ITEM,  is  then  updated  to  reflect  the  particular  data 
elem'ent  which  is  to  be  tested.  Tor  example,  ITEM  = 1 implies  the  data  element 
is  the  attrition  point;  ITEM  2 refers  to  weeks  duration  of  the  training  phase, 
etc.  Subroutine  DTEST  is  then  called  to  validate  the  particular  data  point. 
Subroutine  CHECKP  tests  the  15  floating  point  and  2 integer  data  values  for 
each  training  phase. 
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SUBROUTINE  NOYES 

3.10  Subroutine  NOYES  reads  a Yes  , ”Y,"  or  No  , "N  /'response  from  the  time- 
sharing terminal.  Switch  NY,  which  is  in  common,  is  set  to  -1  for  a No  response 
and  to  1 for  a Yes  response.  When  a Yes  or  No  reply  is  required  in  PROGRAM 
LSR1  or  its  subroutines,  Subroutine  NOYES  is  called. 

SUBROUTINE  DELETE 

3.11  Subroutine  DELETE  deletes  training  phases  from  the  training  phase 
data  base.  Upon  entry,  Subroutine  EDIT4  is  called  which  inputs  the  numbers 
of  the  training  phases  which  are  to  be  deleted.  The  phases  are  deleted  in  de- 
scending order  and  thus  the  phase  numbers  of  the  training  phases  to  be  deleted 
are  scanned  to  determine  the  maximum  number,  i.e.  , if  Phases  4 and  8 are  to 
be  deleted,  Phase  8 is  deleted  first.  A list  of  those  phase  numbers  and  names 
is  printed  for  reference.  The  deleted  phase  number  is  stored  in  variable 
KILLS  for  reference  in  PROGRAM  LSR2 . To  provide  program  consistency  in  all 
routines,  the  remaining  phases  are  renumbered  to  keep  the  phase  numbers  se- 
quential starting  at  number  1 . For  example,  if  15  training  phases  exist  in  the 
pipeline  and  Phase  8 is  deleted,  old  Phase  9 would  become  Phase  8,  Phase  10 
becomes  9 , etc . 

1.12  Subroutine  DELETE  continues  the  foregoing  process,  i.e.,  select  the 
next  highest  phase  number  until  the  specified  phase  numbers  have  been  deleted. 
Control  is  then  returned  to  Subroutine  MODIFY,  the  calling  routine. 

SUBROUTINE  NEW  PH  A 

3.13  Subroutine  NEWPHA  develops  the  appropriate  linkage  to  add  a new 
training  phase  into  the  training  phase  data  base.  Upon  entry,  a transfer  is 
made  to  Subroutine  UPDATE  and  the  first  six  training  phase  data  points  are 
entered,  i.e.,  phase  name,  through  number  of  academic  instructions.  If  flight 
instruction  is  specified,  NAC  >0.  Subroutine  UPDATE  is  called  to  enter  the 
data  associated  with  aircraft  flight  instruction  (training  phase  items  7 to  17). 
When  academic  instruction  is  specified,  NAD  >0,  training  phase  items  1 8 to  2 1 
are  similarly  entered. 

3.14  When  all  data  associated  with  a training  phase  have  been  entered, 
Subroutine  LIST  is  entered  to  print  these  new  data.  Control  then  returns  to  Sub- 
routine MODIFY. 


17 


SUBROUTINE  EDIT l 


3.  IS  Subroutine  EDIT1  reads  from  the  time-sharing  terminal  the  phase  num- 
bers of  the  training  phases  which  are  to  be  deleted  or  listed.  Upon  entry,  the 
user  provides  the  appropriate  phase  numbers  depending  on  the  particular  option 
being  exercised.  A check  is  then  made  to  determine  the  validity  of  the  phase 
numbers  entered.  The  number  of  entries,  N,  is  developed  and  control  is  re- 
turned to  the  calling  routine  (Subroutine  MODIFY). 

SUBROUTINE  LIST 

3.16  Subroutine  LIST  prints  the  phase  data  associated  with  a particular 
training  phase,  I PH.  Upon  entry,  an  appropriate  branch  is  made  to  the  print 
statement  which  will  list  the  phase  data  associated  with  a particular  item,  IL. 

For  example,  if  IL  = 5,  the  number  of  different  aircraft  types  for  the  particular 
training  phase  is  listed.  Note  that  each  training  phase  may  contain  up  to  21 
different  types  of  data.  To  obtain  a complete  data  list,  i.e.  , all  data  for  a 
particular  training  phase,  Subroutine  LIST  is  called  21  times  with  IL  being 
serially  incremented  from  1 . 

SUBROUTINE  UPDATE 

3.17  Subroutine  UPDATE  inputs  from  the  user  a particular  training  phase 
data  value.  Upon  entry,  a test  is  made  to  determine  which  data  point  is  to  be 
entered.  The  program  branches  to  the  appropriate  input  statement  so  that  re- 
vised values  may  be  user  entered.  For  non-alphameric  data  fields,  Subroutine 
DTEST  is  called  to  validate  the  user  supplied  value.  Control  then  returns  to 
the  calling  routine. 

SUBROUTINE  DTEST 

3.18  Subroutine  DTEST  checks  a particular  phase  data  point  for  validity. 

Upon  entry,  a check  is  made  to  determine  whether  the  data  point  to  be  tested 

is  a floating  point  number.  If  it  is  a floating  point  number,  the  value  is  checked 
against  the  appropriate  maximum  expected  value,  BMAX.  If  the  value  exceeds 
BMAX,  a message  is  printed  for  the  user  identifying  the  data  element.  The  user 
either  accepts  the  data  value  or  enters  a new  value. 

3.19  A similar  procedure  is  used  for  integer  data  points.  However,  since  the 
only  integer  variables  in  the  phase  data  base  are  the  number  of  flight  and  aca- 
demic instruction  types,  the  maximum  value  is  3.  Note  that  this  constraint 
arises  because  aircraft  and  academic  instruction  types  have  a program  dimension 
of  3.  Control  then  returns  to  the  calling  routine. 
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SUBROUTINE  PHASES 


3.20  Subroutine  PHASES  lists  the  name  and  number  of  each  training  phase 
contained  in  the  data  base. 

SUBROUTINE  ERROR 

3.21  Subroutine  ERROR  prints  diagnostic  messages.  In  accordance  with  an 
error  type  Switch,  IER,  a diagnostic  message  is  displayed. 

3.22  A flow  chart  of  PROGRAM  LSR1  is  shown  in  figure  3#  Table  6 contains 
the  variable  dictionary  of  PROGRAM  LSR1;  the  program  and  subroutine  dictionary 
is  provided  in  Table  7.  The  program  listing  is  shown  in  Table  8. 
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riGURE  3 (Cont) 
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c.  Subroutine  NCA  CS 


Subroutine  I'.DI'l  ] 


TABLE  6 

PROGRAM  I. SRI  VARIABLE  DICTIONARY* 


Location 

Variable 

Name 

Dimension 

Type 

Description 

LSR 1 

INF 

1 

A 

File  name 

MODIFY 

IS 

1 

I 

New  phase  switch 

IS  = 0;  no  new  phases  added 

IS—  1 : new  phases  have  been  added 

MODIFY 

ILB 

1 

I 

Lower  print  loop  bound 

MODIFY 

IUB 

1 

I 

Upper  print  loop  bound 

MODI  FY 

K 

1 

I 

Number  of  aircraft  before  air- 
craft data  field  was  modified 

MODIFY 

N 

1 

I 

Revised  number  of  aircraft 

C*H  HCKP 

I AD 

25,3,4 

A 

Equivalent  to  common 
variable  NAME 

QM  P 

Dll 

25,3 

F 

Equivalent  to  common  variable 
ATP 

f,  i ■ ECK  P 

25,3,12 

F 

Equivalent  to  common  variable 
GAS 

I DPI 

25,2 

I 

Equivalent  to  common  variable 
NAC 

I LIST 

NACC 

1 

I 

Number  of  aircraft  types 

LIST 



NADD 



1 

I 



Number  of  academic  instruction 
types 

For  a dictionary  of  common  variables,  see  Table  3. 

I 
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TABLE  7 


PROGRAM  LSR1  PROGRAM  AND  SUBROUTINE  DICTIONARY 


1 

LSRl 

Inputs  all  data  associated  with  each  phase  of  pilot  training. 

i 

MODIFY 

Modifies  training  phase  data  by  deleting  phases,  adding  nev 
phases,  listing  existing  phase  data,  and  modifying  phase 
data.  The  modified  data  base  is  stored  in  file  SAVBCS. 

I 

CHECKP 

Scans  each  training  phase  for  valid  data. 

1 

NOYES 

Reads  a Yes,  "Y,"  or  No,  "N,"response  from  the  time-sharing 
terminal . 

1 

DELETE 

Deletes  training  phases  from  the  data  base. 

1 

NEWPHA 

Adds  a new  training  phase  into  the  data  base. 

1 

EDIT1 

Reads  from  the  time- sharing  terminal  the  numbers  of  phases 
to  be  deleted  or  data  listed. 

1 

LIST 

Lists  all  data  associated  with  a phase  of  pilot  training. 

1 

m 

UPDATE 

Modifies  each  data  field  with  respect  to  a particular  phase 
of  training . 

i 

i 

DTEST 

Tests  a particular  data  point  for  validity.  Modifications  to 
invalid  data  points  are  made  when  requested. 

I 

l 

PHASES 

Lists  the  number  and  name  of  each  training  phase  in  the 
current  data  base. 

1 

ERROR 

Prints  error  messages  when  invalid  terminal  responses  arise. 

' i 


TABLE  K 


LSH  1 

101 

121 

141 

161 

181 

201 

221 

241 

261 

281 

301 

321 

341 

361 

381 

401 

421 

441 

461 

481 

501 

521 

541 

561 

581 

601 

621 

641 

661 

681 

701 

721 

741 

761 

781 

801 

821 

841 

861 

881 

901 

921 

941 


PROGRAM  I .SR]  LISTING 


14U8  01/18/70 

COMMON  IYEAR# ISWTCHC 10) 

COMMON  NAME( 25#  3 ) # NPLAC 25*3)#  NFUELC 25#  3 ) # NACDC  25#  3 ) # ATP ( 25 ) # 
A WK  C 25 ) # TODC 25) #NAC ( 25  > # NADC 25)  # WX C 25#  3 > # GASC 25#  3 ) # AU<  25#  3 ) # 
4FUC  25#  3 ) # SFH C25#3)#FIHC25#3)#  FTR( 25#3)#FS0C2S#3>#  AMO C 25#  3 ) # 
4ASHC25#3)# AIHC25#3)#AITRC25#3) 

COMMON  ICOMMA# I BLANK# NO#NYES# NY# NPH# IER#LEVLSR# IPH# WPY# 
4AFD#KILL# 1 1 D#  FI D# KILLS C25) # SI C 25)#  TSOUT C25)#S0C25) 

COMMON  IBC# IL# IP#N# ITEM# IDELC51 )#BMAXC 15) 

FILENAME  I NP 
IF(IBC)5# 5# 100 
5 INP-^BASCAS" 

10  OPENFILE  INP 
REWIND  INP 

READ( INP#  700 )N0#  NYES# I COMMA# I BLANK 
READC I NP#  70 1 ) I L#  BMAX 
READ( I NP#  701 ) IL#  NPH 
I F( NPH )90#90#20 
20  IF(NPH-25)30#30#90 
30  DO  40  I « 1 # NPH 

READC  INP#703)C  NAME(  I#J)#J=1#3)#C  NPLA(  I#J)#J«=1#3)# 

4 C NFUEL  CI#J)#J*1#3)#C  NACDC  I # J)  # J=  1 # 3 ) 

READ< INP# 701 >IL#NAC< I )#NAD<  I ) 

READdNP#  701  >IL#ATP(  1 )#WK<I  )#TOD(  I ) 

READ(INP#701  )IL#<WX(I#  J),  J«l#3) 

READ<  I NP#  70 1 ) I L#  ( GAS(  I#J)»J=1#3) 

READ( I NP#  70 1 ) I L#  < AU< I # J) # J» 1 # 3 ) 

READC I NP#  701 )IL# ( FUC I»J)#J*1#3) 

READC INP# 701 ) I L# C SFHC I # J) # J* 1 # 3 ) 

READC  I NP#  70 1 > I L#  C FI  H C I # J ) # J=  1 # 3 ) 

READ C I NP # 70 1 ) I L#  C FTRC I # J ) # J- 1 # 3 ) 

READC INP#701)IL#(FS0CI#J)#J=1#3) 

READC INP# 701 >IL#  CAMOC I# J)# J«l#3) 

READC I NP#  70 1 ) IL#  C ASHC I # J) # J- 1 # 3 ) 

READC INP# 701 )IL#  CAIHC I# J)# J-l#3> 

READC INP# 701 >IL#  CAITRC I# J)# J=l#3) 

IPH-I 

CALL  CHECKP 
40  CONTINUE 

I FC NPH >90 #90#  50 
50  PRINT  705 
CALL  NOYES 
I F( NY )80#80#60 
60  CALL  PHASES 
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I 


TABLE  8 (Cont) 


I 

I 


961 
981 
1001 
1021 
1041 
1061 
1081 
1 101 
1 121 
1 141 
1161 
1181 
1201 
1221 
1241 
1261 
1281 
1301 
1321 
1341 
1361 
1381 
1401 
1421 
1441 


K1LL=0 

80  CLOSEFILE  I NP 

1 F<LEVLSR-2  >87*87»83 
83  CALL  MODIFY 
87  CHAIN  "XLSR2*" 

90  NPH*0 
IER-3 

CALL  ERROR 
LEVLSR=4 
PRINT  706 
GO  TO  80 
100  PRINT  707 
CALL  NOYES 
IF<NY> 110# 110* 105 
105  I BC  = 0 
GO  TO  5 

110  1NP="SAVBCS” 

GO  TO  10 

700  FORMAT ( 5X> 3A 1 / A4 ) 

701  FORMAT (V) 

703  FORMAT ( 5X# 1 2A4 ) 

705  FORMAT  <**  PRINT  LIST  OF  TRAINING  PHASES  <Y,N)M> 

706  FORMAT ( 3 1 H LSR  COMPLEXITY  OPTION  SET  TO  4) 

707  FORMAT ( 24H  RESTORE  BASE  CASE  <Y,N)> 

END 


I 

! 


I 


1461 
1481 
1501 
1521 
1541 
1561 
1581 
1601 
1621 
1641 
1661 
1681 
1 701 
1721 
1 741 
1 761 
1 781 
1801 
1821 
1841 
1861 
1881 
1901 
1921 
1941 
1961 
1981 
2001 
2021 
2041 
2061 
2081 
2101 
2121 
2141 
2161 
2181 
2201 
2221 
2241 
2261 
2281 
2301 


TABLE  8 (Cont) 
a.  Subroutine  MODIFY 


SUBROUTINE  MODIFY 
COMMON  IYEAR# I SVTCHC 10) 

COMMON  NAME ( 25#  3 ) # NPLA< 25#  3 > # NFUEL( 25#  3 ) # NACD( 25#  3 ) # ATP ( 25  ) # 
4 WK( 25>#T0D<25)#  NAC ( 25 > # NAD( 25 > # WX  C 25/ 3 ) # GAS ( 25#  3 ) # AUC 25#  3 ) # 
4FU(2S#3)#SFH(25#3)#FIH(25#3)#FTR(25» 3 ) # FSOC  25# 3 ) » AMOC  25#  3 ># 

4 ASH (25#3)#AIH(25#3)#AITR(25#3) 

COMMON  I COMMA# I BLANKS  NO# NYES# NY# NPH# I ER#  LEVLSR# I PH#  WPY# 
4AFD#KILL# 1 1 D# FI D# KI LLS ( 25 ) # SI < 25 ) # TSOUT < 25 ) # SOC 25 ) 

COMMON  IBC# IL# I P# N# I TEM# I DEL< 5 1 >#BMAX( 15) 

FILENAME  OUT 
OUT="SAVBCS" 

IS*0 

I F(NPH)90#  90#  10 
10  PRINT  700 
CALL  NOYES 
IFCNY) 120# 1 20#  20 
20  PRINT  701 
CALL  NOYES 
I FC NY) 40 #40#  30 
30  CALL  DELETE 
40  PRINT  702 
CALL  NOYES 
I F( NY) 50# 50# 70 
50  I F ( NPH  ) 60  # 60  # 1 00 
60  I ER®3 
NPH«0 

CALL  ERROR 

70  I F( NPH- 25  >90#  80#  80 
80  IER«4 

CALL  ERROR 
GO  TO  20 
90  NPH-NPH+1 
I PH » NPH 
IS*1 

CALL  NEWPHA 
GO  TO  40 

100  I F( I S ) 1 20# 1 20# 110 
110  CALL  PHASES 
120  PRINT  715 
CALL  NOYES 
I FC  NY ) 500#  500# 125 
125  PRINT  703 
CALL  NOYES 
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TABLE  K (Cont) 

a.  Subroutine  MODITY  (Corit) 


2321 

IF<NY) 180# 180*130 

2341 

130 

CALL  EDIT  1 

2361 

IFCN) 150* 150* 160 

2381 

150 

IER-2 

2401 

CALL  ERROR 

2421 

GO  TO  180 

2441 

160 

DO  170  I ■ 1 * N*  2 

2461 

I PH= I DEL ( I ) 

2481 

DO  170  J= 1 * 22 

2501 

I L= J“ 1 

2521 

CALL  LIST 

2541 

170 

CONTINUE 

2561 

180 

PRINT  704 

2581 

CALL  NOYES 

2601 

I F( NY ) 1 20* 120*190 

2621 

190 

PRINT  705 

2641 

200 

INPUT  706* IPH* IC1* IL* IC2* 

2661 

I F( I PH  >210*  120*220 

2681 

210 

IER-6 

2701 

215 

CALL  ERROR 

2721 

GO  TO  200 

2741 

220 

I F( I PH-NPH  >230*  230*210 

2761 

230 

IF<IC1“I COMMA ) 240*  250*  240 

2 781 

240 

IER-1 

2801 

GO  TO  215 

2821 

250 

1F( IL)210*210*260 

2841 

260 

IFCIL-5)270*290*330 

2861 

270 

CALL  UPDATE 

2881 

CALL  LIST 

2901 

280 

PRINT  707 

2921 

GO  TO  200 

2941 

290 

K«NAC( IPH) 

2961 

I LB*7 

2981 

I UB* 1 7 

3001 

CALL  UPDATE 

3021 

CALL  LIST 

3041 

N*NAC( IPH) 

3061 

300 

IFCK-N)310*280*280 

3081 

310 

KeK+  1 

3101 

DO  325  I = I LB* I UB 

3121 

IL-I 

3141 

DO  320  J*K*N 

3161 

IP*J 

35 


7 


TABLE  8 (Cont) 

a.  Subroutine  MODITY  (Cont) 


3181 
3201 
3221 
3241 
3261 
3281 
3301 
3321 
3341 
3361 
3381 
3401 
3421 
3441 
3461 
3481 
3501 
3521 
3 541 
3561 
3581 
3601 
3621 
3641 
3661 
3681 
3701 
3721 
3741 
3761 
3781 
3801 
3821 
3841 
3861 
3881 
3901 
3921 
3941 
3961 
3981 
4001 
4021 


320  CALL  UPDATE 
325  CALL  LIST 
GO  TO  280 

330  1 F < IL-  6 ) 340,  340#  350 
340  K=NAD( I PH ) 

ILB-18 
I UB  = 21 
CALL  UPDATE 
CALL  LIST 
N*NAD< I PH) 

GO  TO  300 
350  N=NAC < I PH ) 

IFUL-l  7)360#  360>390 
360  IF( IP)210,210,380 
380  IF(IP-N>270, 270,210 
390  N*NAD(IPH> 

IF< IL-21 )3 60 *360*210 
500  DO  510  1*1, NPH 
1 PH*  I 

510  CALL  CHECKP 

I F(NPH>90, 90, 530 
530  PRINT  708 
CALL  NOYES 
I F( NY  >560,560, 540 
540  IBC= 1 

0PENF1LE  OUT 
REWIND  OUT 

VRITEtOUT, 709  >N0, NYES, ICOKMA, I BLANK 
WRI TE( OUT , 7 1 0 )BMAX 
VRITECOUT, 71 1 )NPH 
IC* 1025 

DO  550  1*1, NPH 
1C-IC+5 

WRI TE<  OUT, 712)IC,( NAME< I,J),J*1,3), < NPLAC I,J),J*1,3), 
*<  NFUEl.C  I,J),J*1,3),(  NACDC  I,J),J*1,3> 

IC* IC+5 

WRITE (OUT, 713)IC,NAC( I ),NAD( I ) 

IC-IC+5 

WRI  TEC  OUT ,714) I C, ATP< I ) , WK( I ) , T0D< I ) 

IC*IC*5 

WRI TE( OUT ,714)IC, ( WX( I , J) , J* 1 , 3 ) 

IC-IC+5 

WR1TE( OUT, 7 1 4 > I C, ( GAS( I,J),J*1,3) 
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TABI.E  k 


f 

a.  Subroutine  MODIFY  (Cont) 


4041 

4061 

4081 

4101 

4121 

4141 

4161 

4181 

4201 

4221 

4241 

4261 

4281 

4301 

4321 

4341 

4361 

4381 

4401 

4421 

4441 

4461 

4481 

4501 

4521 

4541 

4561 

4581 

4601 

4621 

4641 

4661 

4681 

4701 

4721 

4741 

4761 

4781 

4801 

4821 

4841 

4861 

4881 

4901 


10=105 

WRI TEC  OUT  *714)IC* (AIK  I# J)< J=l/3) 
lOIC  + 5 

WRITE(0UT* 714) I C*  <FU< I* J)* 1 * 3 ) 

IC=IC*5 

VRI TE<  OUT*  714)IC*(SFH(I*J)*Jal*3) 

1C=1C*5 

WRI TE<  OUT  *714)IC*(FIH(I*J)*JB1*3> 

IC-1C+5 

WRI TE<  OUT  *714)IC* ( FTR( I*J)*J=1*3) 

I C= I C + 5 

WRI TE<  OUT  *714)IC*(FS0(I*J)*J“1*3) 

IC=IC+5 

WRITE (OUT*  714) I C* ( AM0( I * J) * J= 1 * 3 ) 

IC=IC+5 

WRI TE( OUT  * 7 1 4 ) I C* (ASH (I*J)*J=1*3) 

IC«IC+5 

WRI  TE(  OUT  * 7 1 4 ) I C*  ( AI H ( I * J)  * J=  1 * 3 ) 

IC-IC+5 

WRI TE( OUT*  714)IC*(AITR(I*J)*J=1*3) 

550  CONTINUE 

CLOSEFILE  OUT 
560  RETURN 

700  FORMAT ( //33H  ANY  DELETIONS  OR  ADDITIONS  ( Y*  N ) ) 

AN)  ) 

701  FORMAT (20H  ANY  DELETIONS  ( Y* N ) ) 

702  FORMAT (22H  ADD  A NEW  PHASE  ( Y*  N) ) 

703  FORMAT ( 2 1H  ANY  DATA  LISTS  (Y*N>> 

704  FORMAT (24H  ANY  MODIFICATIONS  (Y*N> ) 

705  FORMAT ( 4 1H  ENTER  PHASE*  FIELD  AND  ELEMENT  ( XX* XX* X ) /44H  PHASE 
A = 00  IMPLIES  NO  FURTHER  MODIFICATIONS/"  NOTE  TWO  DIGIT 
AFIELDS  MUST  CONTAIN  TWO  DIGITS") 

706  FORMAT (2(I2*A1)*I1) 

707  F0RMAT(5H  NEXT) 

708  FORMAT ( 30H  SAVE  MODIFIED  DATA  BASE  ( Y*N) ) 

709  FORMAT ( 5H 1 000  *3A1*A4) 

710  FORMAT ( 5H 1 005  *4E13.6/5H1010  * 4E 1 3 • 6/5H 1 0 1 5 *4E13.6/ 

A5H1020  * 4E 13*6) 

711  FORMAT ( 5H1025  *13) 

712  FORMAT! 14* IX* 12A4) 

713  FORMAT (14* IX* 213) 


714  FORMAT (14* IX*  3E1 3 • 6) 


TABLE  8 (Cont) 
b.  Subroutine  CHECKUP 


492 1 
4941 
4961 
4981 
5001 
5021 
5041 
5061 
5081 
5101 
5121 
5141 
5161 
5181 
5201 
5221 
5241 
5261 
5281 
5301 
5321 
5341 
5361 
5381 
5401 
5421 
5441 
5461 
5481 
5501 
5521 
5541 
5561 
5581 
5601 
5621 
5641 
5661 
5681 
5701 
5721 
5741 
5761 
5781 
5801 
5821 
5841 
5861 
5881 
5901 


SUBROUTINE  CHECKP 
COMMON  I YEAR# 1 SWTCH( 10 ) 

COMMON  I AD( 25*3*4)* DF1 (25#  3 )*  NAC ( 25 ) # NADt 25) #DF2< 25*  3# 12) 
COMMON  I COMMA* I BLANK*  NO#  NYES#  NY#  NPH# I ER* LEVLSR* I PH*  WPY* 
&AFD*  K I LL* 1 1 D#  FI D* HI LLS C 25 ) * S I ( 25 ) * TSOUT <25)#S0<25> 

COMMON  IBC# IL* IP*N, ITEM* IDEL(51 >#BMAX< 15) 

DO  20  1=1*3 
I L = I — 1 
ITEM=I 

FID*DF1 < IPH# I ) 

CALL  DTEST 
20  DF1 ( IPH* I )=FID 
N=NACt IPH) 

I Ft  N)40#  80#  30 
30  I Ft  N-3 ) 50*  50#  40 
40  I L=0 

CALL  LIST 
I L = 5 

CALL  LIST 
NACt IPH>=0 
I ER=5 

CALL  ERROR 
GO  TO  80 
50  DO  70  1=1*9 
IL=8+I 
ITEM-3+1 
DO  70  <J=  1 * N 
FI D«DF2t IPH*  J# I ) 

CALL  DTEST 
70  DF2t IPH#  J# I )*FID 
80  N»NAD<IPH) 

IFtN) 100* 140*90 
90  IFtN** 3)11 0*110*1 00 
100  I L-0 

CALL  LIST 
IL=6 

CALL  LIST 
NADt IPH)-0 
IER-5 

CALL  ERROR 
GO  TO  140 

110  DO  130  1-10*12 
IL-9+I 
ITEM-3+1 
DO  130  J- 1 * N 
FI D«DF2t IPH* J* i ) 

CALL  DTEST 

130  DF2t IPH* J* I )=FID 
140  RETURN 
END 





u 
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I 

I 


I 


TABLE  8 (Cont) 
c.  Subroutine  NOYES 


I 

I 

I 

I 

I 


5921 

5941 

5961 

5981 

6001 

6021 

6041 

60  61 

6081 

6101 

10 

6121 

6141 

6161 

20 

6181 

6201 

30 

6221 

6241 

40 

6261 

6281 

6301 

700 

6321 

SUBROUTINE  NOYES 
COMMON  I YEAR* I SWTCH( 10) 

COMMON  NAME( 25*  3 > * NPLA( 25*3)*  NFUEL (25*3)*  NACD( 25*3>*ATP(25) 
A WK  ( 25)*T0D(25>*  NAC ( 25  ) * NADC  25 ) * VX  (25*3)*  GAS (25*3)*  AU ( 25*  3 ) » 
AFU( 25*  3 > * SFH( 25*3)*FIH(25*3>*  FTR( 25*3)*FS0<25*3>*  AM0( 25*  3 > * 
4ASHC25*  3>*AIHC25*3>* AITR<25*3) 

COMMON  I COMMA* 1 BLANK*  NO*  NYES*  NY  * NPH* I ER*  LEVLSR* I PH* WPY* 
4AFD*  KILL* 1 1 D* FI D* KI LLS< 25 > * S I C 25 > * TSOUT < 25 > * SOC 2 5 > 

COMMON  IBC* IL* IP*N* ITEM* IDEL<  51 )*BMAX( 15) 

1 = 1 

INPUT  700* NY 
I F<  NO-NY ) 30*  20*  30 
NY=- 1*1 
RETURN 
I =-  1 

1 FC  NYES -NY  >40*  20*  40 
IER-6 

CALL  ERROR 
GO  TO  10 
FORMAT ( A 1 ) 

END 


I 

I 

I 

I 

I 


89 


TABLE  8 (Cont) 
d.  Subroutine  DELETE 


6341 

SUBROUTINE  DELETE 

6361 

COMMON  I YEAR# ISWTCH( 10) 

6381 

COMMON  NAME<25#3)# I AD( 25# 3# 3 ) # DF 1 <25# 3)# IDF1<25#2)# 

6401 

4DF2( 25*  3# 12) 

6421 

COMMON  ICOMMA# IBLANK#NO#NYES#NY#NPH#IER#LEVLSR# IPH#  VPY# 

6441 

4AFD#KILL# 1 1 D#  FI D#  KI LLS C 25 ) # SI < 25 ) *TS0UT ( 25 ) # S0< 25 ) 

6461 

COMMON  IBC# IL# IP#N# ITEM# IDEL<51 )#BMAX< 15) 

6481 

CALL  EDI T 1 

6501 

IF(N) 10# 10#  20 

6521 

10 

I ER*2 

6541 

CALL  ERROR 

6561 

GO  TO  150 

6581 

20 

M=NPH 

6601 

DO  140  I = 1 # M 

6621 

I PH=M+ 1-1 

6641 

DO  30  J- 1 # N#  2 

6661 

IFC IPH-IDELC J) ) 30# 40# 30 

6681 

30 

CONTINUE 

6701 

GO  TO  140 

6721 

40 

PRINT  700# IPH#  <NAME< IPH# J)# J»l#3) 

6741 

KILL=KILL*1 

6 761 

KILLS (KILL > *1 PH 

6781 

I F( I PH -NPH ) 50# 100# 100 

6801 

50 

NPH 1 = NPH- 1 

6821 

DO  90  K“ I PH#  NPH 1 

684  1 

KK=K+1 

6861 

DO  60  J“  1 # 3 

6881 

NAMEtK#  J) =NAME<  KK# J) 

6901 

DO  60  L«=  1 # 3 

6921 

60 

IAD(K# J#L)-IAD(KK# J#L) 

6941 

DO  70  L«l#3 

6961 

70 

DF1 <K#L)"DF1 <KK#L) 

6981 

DO  80  L* 1 # 2 

7001 

80 

I DF 1 CK#L)*I DF 1 < KK#  L > 

7021 

DO  90  L=l# 12 

7041 

DO  90  J= 1 # 3 

7061 

90 

DF2(K#  J#L)  *>DF2(KK#  J#L) 

7081 

100 

NPH-NPH-1 

7101 

140 

CONTINUE 

7121 

CALL  PHASES 

7141 

150 

RETURN 

7161 

700 

FORMAT ( 1 3H  DELETE  PHASE# I 3# 1 X# 3A4 ) 

7181 

END 

40 


TABLE  K (Cont) 


7201 
7221 
724  1 
7261 
7281 
7301 
7321 
7341 
7361 
7381 
7401 
7421 
7441 
7461 
7481 
7501 
7521 
7541 
7561 
7581 
7 601 
7621 
7641 
7661 
7681 
7701 
7721 
7741 
7761 
7781 
7801 
7821 
7841 
7861 
7881 


e.  Subroutine  NEWPHA 


SUBROUTINE  NEWPHA 
COMMON  1 YEAR# I SWTCH (10) 

COMMON  NAME( 25*3)*  NPLA<  25*3)*  NFUEL (25*3)*  NACD<  2 5*3)*  ATP < 25  ) * 
AWK (2S)*T0D<25)*  NAC ( 25 ) * NAD( 25 ) * WX( 2 5#  3 ) * GAS( 25*3)*AU(25#3)* 
AFU(25*3)*SFH(25*3)*FIH(25*3)*FTR(25*3)*FS0<25*3)* AM0<25*3)# 
AASHC25*  3)*AIH(25*  3 ) * AI TR ( 25* 3 > 

COMMON  I COMMA* I BLANK*  NO*  NYES*  NY  * NPH* I ER#  LEVLSR* I PH*  WPY* 

AAFD* KI LL* I I D# FI D* KI LLS < 25 ) * S I < 25 ) # TSOUT < 25 ) # SO ( 25 ) 

COMMON  IBC# IL# IP*N* ITEM* I DEL( 51)# BMAX ( 15) 

DO  10  1=1*6 
I L=  I 

CALL  UPDATE 
10  CONTINUE 
N=NAC ( I PH ) 

I F ( N) 40#  40*  20 
20  DO  30  1=7*17 
I L=  I 

DO  30  J=1*N 
IP  = J 

CALL  UPDATE 
30  CONTINUE 
40  N-NAD(IPH) 

I F<  N)  70*  70#  50 
50  DO  60  1=18*21 
I L=  I 

DO  60  J=  1 # N 
IP  = J 

CALL  UPDATE 
60  CONTINUE 
70  DO  80  1=1*22 
IL-I-1 
CALL  LIST 
80  CONTINUE 
RETURN 
END 
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TABLE  8 (Cont) 
f.  Subroutine  EDIT] 


7901  SUBROUTINE  EDIT  1 

7921  COMMON  I YEAR* I SVTCH( 10) 

7991  COMMON  NAMEC 25, 3 > * NPLA< 25, 3 > * NFUEL C 25* 3 ) * NACDC 25* 3 > * ATP < 25 > * 

7961  -I  WK  ( 25)*T0D(25)*  NAC  ( 25  ) * NADC  25  ) * WX(  25*  3 > * GAS  ( 25*  3 > * AU(  25*3)* 

7981  &FU( 25*3)*  SFH<  25*3>*FIH<25*3>*  FTR( 25*3)*F50(25*3) * AMO  ( 25*3)* 

8001  &ASH<25*3)*AIH(25*3)*AITR<25*3> 

8021  COMMON  I COMMA# I BLANK, NO, NYES* NY, NPH* I ER* LEVLSR *1 PH* WPY* 

8041  4AFD*KILL* I I D* FI D* HI LLS C 25 ) * S I < 25 > * TSOUT ( 25 ) * SO ( 25 ) 

8061  COMMON  I BC* I L* I P* N* I TEM* I DEL ( 5 1) > BMAX ( 1 5 ) 

8081  PRINT  700 

8101  10  INPUT  701*1  DEL 

8121  I DEL  C 5 1 ) =0 

8141  DO  80  1=1*25 

8161  N=2*  1 - 1 

8181  I F( I DEL ( N) >30*90*20 

8201  20  I F C I DEL( N ) -NPH ) 50*  50*  30 

8221  30  I ER=6 

8241  40  CALL  ERROR 

8261  GO  TO  10 

8281  50  IF( 1-1 >80*80*60 

8301  60  I F< I DEL( N- 1 ) - I COMMA) 70*80*70 

8321  70  I ER= 1 

8341  GO  TO  40 

8361  80  CONTINUE 

8381  90  N=N- 2 

8401  RETURN 

8421  700  FORMAT ( " ENTER  PHASE  NUMBERS  <XX*XX*  . . >"/"  TWO 

8441  &DIGITS  ARE  REQUIRED  FOR  EACH  PHASE"/) 

8461  701  FORMAT (25(I2*A1)*I2) 

8481  END 

I 
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8501 
8521 
8541 
8561 
8581 
8601 
8621 
8641 
8661 
8681 
8701 
8721 
8741 
8761 
8781 
8801 
882  1 
8841 
8861 
8881 
8901 
8921 
8941 
8961 
8981 
9001 
9021 
9041 
9061 
9081 
9101 
9121 
9141 
9161 
9 181 
9201 
9221 
9241 
9261 
9281 
9 301 
9321 
9 34  1 
9361 


TABLE  H (Cont) 
g.  Subroutine  LIST 


SUBROUTINE  LIST 
COMMON  1 YEAR* I SWT CH (10) 

COMMON  NAME (25*3)*  NPLA (25*3)*  NFUEL (25*3)*  NACD<  25*3)*  ATP  C 25) 
& WX (25)*T0D(25)*  NAC  ( 25 ) * NAD( 25  > * VX < 25*  3 ) » GAS < 25*  3 ) * AU<  25*  3 ) * 
AFU (25*3)*  SFH  (25*3)*FIH(25»3)*FTR(25*3)*FS0(2S»3)»  AMO ( 25*3)* 
&ASHC25*  3)*AIH<2  5*3)*AITH<25*3) 

COMMON  ICOMMA* I BLANK*  NO*  NYES*  NY*  NPH, I EH*  LEVLSR* IPH*  VPY* 
&AFD*  K I LL* IID*FID*KI LLS ( 25 ) * S 1 ( 25 ) * TSOUT < 2 5 ) * SO ( 2 5 ) 

COMMON  IBC* IL* I P*  N* ITEM* IDEL(51 >*BKAX(  15) 

NACC=NAC( IPH) 

NADD=NAD< IPH) 


I F< IL) 100* 100* 1 10 

100 

PRINT 

700* IPH 

GO  TO 

200 

no 

I F ( 1 L 

-7)120* 140* 130 

120 

GO  TO 

< 1*2*3*4*5*6)*IL 

l 

PRINT 

701*  (NAMEC IPH*  J) 

GO  TO 

200 

2 

PRI  NT 

702*  A TP ( IPH) 

GO  TO 

200 

3 

PRINT 

703* WK< IPH) 

GO  TO 

200 

4 

PRINT 

704*  TODCIPH) 

GO  TO 

200 

5 

PRI  NT 

705*  NACC 

GO  TO 

200 

6 

PRINT 

706*  NADD 

GO  TO 

200 

130 

I F ( IL 

-17)140* 140* 160 

140 

K=  I L- 

6 

150 

7 

8 
9 

10 
1 1 
12 


I F( NACC )200*200* 150 

GO  TO  <7*8*9*10*11*12*13*14*15*16* 
PRINT  707* ( NFLA( I PH*  J) » J= 1 * NACC ) 

GO  TO  200 

PRINT  708* (NFUEL ( IPH* J)* J=1 * NACC) 
GO  TO  200 

PRINT  709*  < VX ( I PH*  J) * J= 1 * NACC ) 

GO  TO  200 

PRINT  7 1 0*  < GAS ( I PH*  J ) * Js 1 * NACC ) 

GO  TO  200 

PRINT  71 1* <AU< IPH* J)* J=1*NACC) 

GO  TO  200 

PRINT  7 1 2*  < FU(  IPH*  J)  * J*>  1 * NACC  ) 

GO  TO  200 


7 ) * K 


4 3 


TABU,  H (Cont) 


g.  Subroutine  L.TST  (Cont) 


9381  13  PRINT  713# (SFH< 1PH» J)* J=l> NACC ) 

940 1 GO  TO  200 

9421  14  PRINT  7 1 4#  C FI  H(  I PH#  J)  # J=  1 # NACC  ) 

9441  GO  TO  200 

9461  15  PRINT  7 1 5#  ( FTR< IPH# J) # J= 1 # NACC  ) 

9481  GO  TO  200 

9501  16  PRINT  716# (FSOC IPH# J)#J=1# NACC) 

9521  GO  TO  200 

9541  17  PRINT  7 1 7# ( AMO ( I PH# J) # J= 1 # NACC ) 

9561  GO  TO  200 

9581  160  K=  I L-  17 

9601  I F( NADD )200#200# 170 

9621  170  GO  TO  ( 1 8#  1 9#  20#  2 1 ) # K 

9641  18  PRINT  7 1 8# < NACDt I PH# J) # J= 1 # NADD ) 

9661  GO  TO  200 

9681  19  PRINT  7 1 9# ( ASH ( I PH# J) # J* 1 # NADD ) 

9701  GO  TO  200 

9721  20  PRINT  720# ( A I H < I PH# J) # J= 1 # NADD) 

9741  GC  TO  200 

9761  21  PRINT  72 1 # ( AI TR ( I PH# J) # J= 1 # NADD) 

9781  200  RETURN 

9801  700  FORMAT ( /29H  DATA  LIST  FOR  TRAINING  PHASE# 13) 

9821  701  FORMAT ( 1 5H  01  PHASE  NAME  i 3A4 ) 

9841  702  FORMAT ( 1 9H  02  ATTRITION  P0INT#F7.4) 

9861  703  FORMAT ( 1 8H  03  PHASE  DURATI ON# F6 #2# 6H  WEEKS) 

9881  704  FORMAT (16H  04  TOUR  OF  DUTY#F6»2#7H  MONTHS) 

9901  705  FORMAT ( 2 1H  05  AIRCRAFT  TYPES  #12) 

9921  706  FORMAT  < 2 1 H 06  INSTRUCTION  TYPES#I2) 

9941  707  FORMAT ( 24H  07  AIRCRAFT  TYPES  # 3< 1 X# A4# 2X ) ) 

9961  708  FORMAT ( 1 3H  08  FUEL  TYPE# 1 1 X# 3 ( IX# A4# 2X ) ) 

9981  709  FORMAT < 23H  09  FLYABLE  WEATHER  #3F7.3) 

10001  710  FORMAT (22H  10  FUEL  CONSUMPTION  #3F7.2) 

10021  71  1 FORMAT  < 22H  11  A/C  UTILIZATION  #3F7.2) 

10041  712  FORMAT  < 22H  12  INSTRUCTOR  UTIL.  #3F7.2) 

10061  713  FORMAT ( 1 7H  13  FLIGHT  HOURS  #5X#3F7«2) 

10081  714  FORMAT ( 22H  14  FLIGHT  INST.  H0URS#3F7.2) 

10101  715  FORMAT ( 22H  15  INST.  TR.  PERIOD  #3F7.2) 

10121  716  FORMAT  < 22H  16  LSO  RATIO  #3F7.2) 

10141  717  FORMAT ( 22H  17  MAI NTAINENCE  MEN  #3F7.2) 

10161  718  FORMAT ( 23H  18  ACADEMIC  INSTRUCT.  # 3< 2X# A4# IX ) ) 

10181  719  FORMAT ( 1 7H  19  STUDENT  HOURS# 5X# 3F7 .2 ) 

10201  720  FORMAT C 22H  20  INSTRUCTOR  HOURS  #3F7.2) 

10221  721  FORMAT ( 22H  21  INST.  TR.  PERIOD  «3F7.2) 

10241  END 
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10261 
10281 
10301 
10321 
10341 
10361 
10381 
10401 
10421 
10441 
10461 
10481 
10  501 
10521 
10541 
10561 
10581 
10601 
10621 
10641 
10661 
10681 
10701 
10721 
10741 
10761 
10781 
10801 
10821 
10841 
10861 
10881 
10901 
10921 
10941 
10961 
10981 
1 1001 
1 1021 
1 1041 
1 1061 
1 1061 
11101 


TABLE  8 (Cont) 
h.  Subroutine  UPDATE 


SUBROUTINE  UPDATE 
COMMON  SWITCH* 1 1 ) 

COMMON  NAME*25#3)#IAD*25#3#3)#DF1 (25*3)* IDF 1 *25,2), 

&DF2 < 2 5#  3# 12) 

COMMON  I COMMA#  I BLANK#  NO#  NYES#  NY  # NPH#  I ER#  LEVLSR#  I PH#  WPY# 
*AFD#KILL# 1 1 D#  FI D#  KILLS*  25 ) # SI (25)#TS0UT(25)#S0(25) 
COMMON  I BC# I L# IP# N# ITEM, I DEL* 51 )#BMAX* 15) 

I ER=0 

IF* IL- 1)20#  20# 130 
20  PRINT  700# IPH 

INPUT  701#*  NAME* IPH#  J) # J= 1 # 3 ) 

GO  TO  500 

130  IF* IL-4) 140# 140# 170 
140  K-IL-1 

PRINT  704# IL 
INPUT# FID 
I TEM=K 

DF1 < IPH#K)=FID 
CALL  DTEST 
DF1 * IPH#K)*FID 
GO  TO  500 

170  IF* IL-6) 180# 180,200 
180  K«IL-4 

PRINT  706# IL 

INPUT# I ID 

IDF1 < IPH#K)=I ID 

I TEM= 1 6 

CALL  DTEST 

I DF 1(IPH#K)=IID 

GO  TO  500 

200  IF*IL-17)210#210#310 
210  N« I DF 1*1 PH# 1 ) 

IF*IL-8)220#220#260 
220  KML-6 

230  IF*IP-N)250#250#500 
250  PRINT  707# IL# IP 

INPUT  701# IAD* IPH# IP#K) 

GO  TO  500 
260  K* I L-8 

I TEM= I L- 5 

270  IF* IP-N) 280#  280#  500 
280  PRINT  709# IL# IP 
I NPUT # FI D 


f 


TABLE  H (Cont) 

h.  Subroutine  UPDATE  (Cont) 


11121 
1 1141 
11161 
11181 
11201 
11221 
1 1241 
1 1261 
11281 
1 1301 
1 1321 
11341 
1 1361 
1 1381 
11401 
11421 
11441 
1 1461 
1 1481 
11501 
1 1521 


j 


\ 

i 


310 

320 

330 

340 


500 

700 

701 

702 
704 

706 

707 
709 


DF2(  I PH#  IP#K)=>FID 
CALL  DTEST 
DF2  C I PH* IP#K)=FID 
GO  TO  500 

IFOL-21  ) 320.*  320/  500 
N= I DF 1<I PH*  2 ) 

IF< I L- 18) 340# 330*340 
K = 3 

GO  TO  230 
K*  I L-9 
I T EM  = I L - 6 
GO  TO  2 70 
RETURN 

FORMAT ( 20H  ENTER  NAME  OF  PHASE»I3#15H  ( AAAAAAAAAAAA ) ) 
FORMAT (3A4) 

FORMAT ( 4 1 H ENTER 
FORMAT < 1 7H 
FORMAT < 17H 
FORMAT ( 1 7H 
FORMAT ( 1 7H 
END 


ENTER 

ENTER 

ENTER 

ENTER 


FOLLOWING  PHASE  NUMBERS  (XX, XX# XX)) 
DATA  FIELD# 13# 10H  (XXXX.XX)) 

FI  ELD# I 3#  4H  (X)) 

FIELD# 13# 1H-# II# 7H  ( AAAA ) ) 
FIELD# 13# 1H-# I 1# 1 1H  (XXX.XXXX)) 


DATA 

DATA 

DATA 
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TABLE  H (Cont) 
i.  Subroutine  DTEST 


SUBROUTINE  DTEST 
COMMON  I YEAR* ISVTCH< 10) 

COMMON  I AD( 25*3*4)*  DF 1(25*3)* I DF 1(25*2)*  DF2 (25*3* 12) 

COMMON  I COMMA* 1 BLANK*  NO*NYES*  NY  * NPH* I ER*  LEVLSR* I PH*  VPY  * 

AAFD*  KILL* 1 1 D*  FI D* KILLS ( 25 ) * S I (25)*TS0UTC25)*S0<25) 

COMMON  IBC* IL* IP*N* ITEM* IDEL<51 >*8MAX< 15) 

I F( ITEM- 1 6)50*90*500 
50  IF(FID)70*500*60 
60  I F( FI D-BMAX< I TEM )) 50 0*500*70 
70  K-  I L 
IL-0 

CALL  LIST 
I L-K 

CALL  LIST 

PRINT  700*FID*BMAX( ITEM) 

CALL  NOYES 
I F( NY  >80*80*500 
80  PRINT  701 
INPUT* FID 
GO  TO  50 

90  IF(IID>110*  500* 1 00 
100  IFCIID-3)500*  500*  110 
110  K-1L 
IL-0 

CALL  LIST 
I L-K 

CALL  LIST 
PRINT  703 
INPUT* I ID 
GO  TO  90 
500  RETURN 

700  FORMAT ( 1 1H  DATA  POI NT*  F9 • A*  23H  EXCEEDS  RANGE  OF  0-0  -*F9.4/13 
AH  ACCEPT  (Y* N) ) 

701  FORMAT ( 3 1H  ENTER  CORRECT  VALUE  (XXX.XXXX)) 

703  FORMAT ( 40H  INVALID  VALUE  - ENTER  CORRECT  VALUE  <X>> 

END 
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12261 
12281 
12301 
12321 
12341 
12361 
1 2381 
12401 
12421 
12441 
12461 
12481 
12501 
12521 
12541 
12561 
12581 
12601 
12621 
12641 
12661 
12681 


TABLE  8 (Cont) 
j.  Subroutine  PHASES 


SUBROUTINE  PHASES 
COMMON  I YEAR* I SWTCH( 10) 

COMMON  NAMEC25#3)#NPLA<25#3)#NFU£L<25#3)# NACDt 25# 3 ) # ATP< 25 ) # 
4VK<25)#T0DC25)#NAC<25)#NAD(25)# VX( 25# 3 ) # GAS< 25# 3 ) # AU< 25# 3 ) # 
AFU(25#3)#SFHC25»3)#FIH(25#3)#  FTR<25#  3)#FS0<25#3)#  AMO (25*  3 ) # 

A ASH (25#3)#AIH(25#3)#AITR(25#3) 

COMMON  ICOMMA# I BLANK# NO# NYES# NY# NPH# IER#LEVLSR# IPH# VPY# 

A AFD#  K I L.L#  I I D#  FI  D#  KI LLS  < 25  ) # SI  < 25  ) # TSOUT  ( 25  ) # S0(  25  ) 

COMMON  IBC# IL# IP#N# ITEM# IDEL<51 )>BMAX< 15) 

PRINT  700 
I F( NPH ) 40#  40#  1 0 
10  DO  20  1 = 1#  NPH 

20  PRINT  70 1 » I # ( NAME( I#J)#J=1#3) 

30  PRINT  703 
RETURN 
40  PRINT  702 
GO  TO  30 

700  FORMAT < // 1 6H  TRAINING  PHASES/1 5H  NO.  PHASE  NAME) 

701  FORMAT (13#  2X#  3A4  > 

702  FORMAT < 1 OH  NO  PHASES/) 

703  FORMAT ( //**  ") 

END 
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TABLE  8 (Cont) 
k.  Subroutine  ERROR 

12701  SUBROUTINE  ERROR 

12721  COMMON  I YEAR# ISWTCHI 10) 

12741  COMMON  NAMEC 25# 3 ) # NPLA< 25# 3 ) # NFUgL < 25# 3 ) # NACDt 25# 3 ) # ATPC 25 ) > 

12  761  £WK( 25)#T0D(25>#  NAC ( 25 ) # NAD( 25 ) # VX( 25#  3 ) # GAS ( 25#  3 ) # AUC  25# 3 ) # 

12  781  AFU( 25#  3 ) # SFH( 25#  3)#FIH(25#3)#  FTR( 25#  3>#FS0(25#3)#  AMO ( 25#  3 ) # 

12801  4>ASH(  25#3)#AIH(25#3)#AI  TR(  25#  3 ) 

12821  COMMON  ICOMMA# IBLANK# NO# NYES# NY# NPH# I ER#LEVLSR# IPH# WPY# 

12841  AAFD#KILL# 1 1 D# FI D#KILLS ( 25 ) # SI < 25 ) # TSOUT< £5 ) # S0< 25 ) 


12861 

COMMON 

IBC# 

IL# IP#N# ITEM# IDEL<51 )#BMAXC 15) 

12881 

GO  TO 

(2#  3# 

4#  5#  6#  7 ) # I ER 

12901 

2 

PRINT 

702 

12921 

GO  TO 

100 

12941 

3 

PRINT 

703 

12961 

GO  TO 

100 

12981 

4 

PRINT 

704 

13001 

GO  TO 

100 

13021 

5 

PRINT 

705 

13041 

GO  TO 

100 

13061 

6 

PRINT 

706 

13081 

GO  TO 

100 

13101 

7 

PRINT 

707 

13121 

100 

RETURN 

13141 

702 

FORMAT ( 2 1H 

COMMA  MISSING  REPEAT) 

13161 

703 

FORMAT ( 30H 

PREVIOUS  OPTION  NOT  PROCESSED) 

13181 

704 

FORMAT (22H 

NO  PHASES  IN  PIPELINE) 

13201 

705 

FORMAT  < 22H 

25  PHASES  IN  PIPELINE) 

13221 

706 

FORMAT ( 3 7H 

MAX.  FOR  FIELD  IS  3 - FIELD  SET 

13241 

707 

FORMAT <22H 

INVALID  DATA  - REPEAT) 

13261 

END 

I 
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IV.  PROGRAM  LSR2 


PROGRAM  DESCRIPTION 

4.1  The  purpose  of  PROGRAM  LSR2  is  to  compute  the  student  inputs,  outputs, 
and  attrites  for  each  phase  of  pilot  training.  Upon  entry,  data  file  PIPE,  which 
contains  the  phase  sequence  and  attrition  rates  for  each  (student  source)  training 
pipeline,  is  opened  and  rewound.  The  user  is  then  asked  whether  he  wishes 

to  have  all  training  pipelines  printed.  A print  switch,  IPRT,  is  set  to  0 with  a 
No,  "N,"  reply  and  to  1 for  a Yes,  "Y,"  reply. 

4.2  !f  the  level  of  complexity,  LEVLSR,  is  3 or  4,  the  user  is  asked  whether 
the  pipeline  data,  which  may  subsequently  be  modified,  are  to  be  saved  on  an 
output  file,  PIPES.  With  a Yes  response,  data  file  PIPES  is  opened  and  rewound. 
Subroutine  P1PINP  is  called  to  enter  the  phase  sequence  and  attrition  rates  for 
the  next  training  pipeline  from  data  file  PIPE.  Note  that  the  first  time  Subroutine 
PIPINP  is  called,  the  first  training  pipeline  is  entered;  the  second  time,  the 
second  pipeline  is  entered,  etc. 

4.3  When  control  returns,  a test  is  made  to  determine  whether  an  end  of  file 
on  the  data  file  has  been  encountered;  i.e.  , the  last  training  pipeline  has  been 
processed.  If  an  end  of  file  has  not  been  reached,  a transfer  is  made  to  Sub- 
routine PIPENT  to  enter  the  appropriate  pilot  training  rates.  Student  inputs,  out- 
puts, and  attrites  for  each  phase  of  training  are  then  printed.  If  the  user  has 
specified  that  the  training  pipeline  data  are  to  be  saved,  all  data  for  the  training 
pipeline  which  are  currently  in  memory  are  written  on  data  file  PIPES.  Subroutine 
PIPINP  is  then  called  to  enter  the  next  pipeline. 

4.4  When  an  end  of  file  is  encountered,  the  user  is  permitted  to  add  a 
new  training  pipeline  if  the  level  of  complexity  LEVI. SR  is  3 or  4 . The  new 


51 


■ PRECEDING  PASS  BLA.NK-NOT  F Iu£b 


pipeline  is  levoloprd  in  Subroutine  MPIPK.  When  all  pipelines  have  been  entered 
and  their  student  statistics  computed,  data  files  PIPE  and  PIPCS  are  closed. 
Composite  student  statistics  (an  aggregation  over  all  training  pipelines)  are 
printed  and  control  passes  to  PROGRAM  1.SR3. 

SUBROUTINE  MPIPE 

4.5  Subroutine  MP1PP  modifies  the  pipeline  data  when  the  level  of  complexity 
I.EVLSR  is  3 or  4 . Upon  entry,  a test  is  made  to  determine  whether  any  training 
phases  exist  in  the  pipeline.  If  no  phases  exist,  NPHP  = 0,  the  user  must 
generate  a new  pipeline  by  adding  training  phases.  When  some  training  phases 
exist,  Subroutine  MP1PP  prints  the  name  of  the  pipeline,  e.g.,  naval  officers, 
and  asks  the  user  whether  he  wishes  to  make  any  modifications  to  the  pipeline. 

If  no  modifications  are  to  be  made.  Subroutine  PIPER  is  called  to  check  the 
pipeline  for  consistency.  If  Subroutine  PIPPR  has  deleted  all  training  phases, 
Subroutine  MPIPP  recycles  to  enter  all  pipeline  information;  otherwise,  a return 
is  made  to  the  calling  routine. 

4.6  When  the  user  specifies  modifications  to  the  training  pipeline,  the  user 
is  asked  whether  any  training  phases  are  to  be  deleted  from  the  training  pipeline. 
With  a Yes  command,  the  number  of  the  phase  to  be  deleted  is  entered,  and 
Subroutine  DPIPE  is  called  to  remove  the  specified  training  phase.  This  process 
is  continued  until  the  user  has  deleted  the  reguired  number  of  training  phases. 

4.7  The  user  is  next  asked  whether  he  desires  to  add  a new  training  phase. 

If  the  reply  is  Yes,  the  user  enters  the  number  of  the  new  training  phase,  the 
following  phase  numbers,  and  the  phase  attrition  rate.  The  new  phase  number 
is  checked  for  validity.  New  phases  are  added  until  the  user  terminates  this 
process . 

4.8  The  user  is  asked  whether  he  wishes  a list  of  the  phase  sequences  and 
attrition  rates  of  the  training  pipeline.  With  a Yes  reply,  Subroutine  PIPRT  is 
entered  to  print  the  pipeline  data. 

4.9  The  user  is  asked  whether  modifications  are  to  be  made  to  the  pipeline. 
When  modifications  are  to  occur,  the  user  enters  the  number  of  the  phase  to  be 
modified,  IPH,  and  a switch, 1SW,  indicating  whether  he  wishes  to  revise  the 
following  phases,  ISW  = 0 , or  the  attrition  rate,  ISW  = 1.  The  user  enters 

the  appropriate  value(s)  and  continues  to  modify  other  phases.  When  the  user 
terminates  the  modification  process,  the  subroutine  returns  to  the  beginning 
and  continues  until  the  user  terminates  the  modification  process. 

SUBROUTINE  PIPRT 

4.10  Subroutine  PIPRT  prints  the  sequence  of  phases  within  the  training 
pipeline  and  their  respective  attrition  rates.  Upon  entry,  a loop  is  developed 

to  print  all  training  phase  data.  When  the  printing  process  is  completed,  control 
is  returned  to  the  calling  routine. 
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SUBROUTINE  LOADSO 


4.11  Subroutine  LOADSO  develops  an  arbitrary  pilot  training  rate  of  1,000 
students  for  each  terminal  phase  in  the  training  pipeline.  Upon  entry,  the 
terminal  pipeline  phases  are  selected  and  assigned  an  arbitrary  PTR  of  1,000 
student  pilots.  Subroutine  OUTPUT  is  called  to  develop  the  PTR  for  the  remain- 
ing training  phases.  If  the  PTR  of  all  training  phases  cannot  be  computed,  Sub- 
routine LOADSO  deletes  all  phases  in  the  pipeline,  prints  a message  to  the  user 
indicating  that  the  pipeline  has  been  purged  of  its  training  phases,  and  returns 
to  the  calling  routine.  This  check  is  made  since  it  is  possible  for  the  user  to 
generate  a training  pipeline  with  an  invalid  sequence  of  training  phases  (e.g.  , 
phase  1 goes  to  phase  2 and  phase  2 returns  to  phase  1)  . 

SUBROUTINE  PIPER 

4.12  Subroutine  PIPER  checks  for  obvious  inconsistencies  in  the  training 
pipeline.  Upon  entry,  each  traning  phase  in  the  pipeline  is  checked  to 
determine  whether  a duplicate  phase  occurs.  Eor  example,  advanced  Helo 
may  appear  twice  in  the  training  pipeline.  Should  duplicate  phases  occur, 
the  duplicate  phase  is  deleted  through  Subroutine  DPIPE.  A second  test  is 
made  to  determine  the  number  of  phases  that  are  immediate  precursors  to  a 
particular  training  phase,  i.e.,  how  many  training  phases  lead  directly  to 
Basic  Prop.  Should  the  number  of  training  phases  directly  leading  to  any 
phase  exceed  one,  an  error  message  is  listed  and  the  user  makes  the  appropriate 
modifications.  The  attrition  rate  for  each  training  phase  is  then  checked  to 
determine  whether  it  exceeds  100  percent.  Should  this  occur,  the  user  must 
make  the  appropriate  modifications.  Control  then  returns  to  the  calling  routine. 

SUBROUTINE  NOYES 

4.13  Subroutine  NOYES  reads  a Yes,  "Y,"  or  No,  "N , " response  from  the 
time-  sharing  terminal . Switch  NY , which  is  in  common , is  set  to  - 1 for  a No 
response  and  to  1 for  a Yes  response.  When  a Yes  or  No  reply  is  required  in 
PROGRAM  ISR2  or  its  subroutines,  Subroutine  NOYES  is  called. 

SUBROUTINE  ERROR 

4.14  Subroutine  ERROR  prints  diagnostic  messages.  In  accordance  with  an 
error  type  switch,  IER,  diagnostic  message  is  displayed. 

SUBROUTINE  PI  PENT 

4.15  The  purpose  of  Subroutine  P1PENT  is  to  enter  the  PTR  for  phases  in  the 
training  pipeline.  Upon  entry,  the  PTR  for  all  training  phases  is  set  to  zero. 
Next  the  user  enters  the  PTR  for  particular  phases  in  the  training  pipeline.  A 
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validity  check  is  made  to  determine  whether  the  user-supplied  phase  number 
exists  in  the  training  pipeline. 

-1.16  When  the  user  has  completed  entering  the  appropriate  PTR,  Subroutine 
OUTPUT  is  called  to  develop  the  PTR  for  the  remaining  training  phases.  Should 
Subroutine  OUTPUT  be  unable  to  compute  the  PTR  of  the  remaining  phases,  all 
TTRs  arc  set  to  zero,  an  error  message  is  displayed,  and  the  user  is  requested 
to  re-enter  the  PTR  date). 

4.17  Subroutine  SMOOTH  is  called  to  reduce  phase  PTRs  when  appropriate. 

Tor  example,  Basic  Jet  A could  lead  solely  to  Basic  Jet  B with  respective  PTRs 

of  10,000  and  1,000.  Assuming  a zero  attrition  rate,  Subroutine  SMOOTH  would 
reduce  the  PTR  of  Basic  Jet  A to  1,000  since  that  is  the  minimum  number  of  stu- 
dents required  to  satisfy  the  PTR  of  Basic  Jet  B.  Control  returns  to  the  calling 
routine . 

SUBROUTINE  PIPINP 

4.18  Subroutine  PIPINP  enters  the  pipeline  data  into  memory.  Upon  entry, 
data  file  PIPE  is  read  to  determine  the  name  of  the  training  pipeline  and  the 
number  of  phases  that  exist  in  the  training  pipeline.  Should  a negative  number 
of  training  phases  exist  in  the  pipeline,  end  of  file  is  noted  and  control  returned. 
Should  no  phases  exist,  the  user  is  asked  whether  he  wishes  to  add  phases. 

With  a Yes  reply,  Subroutine  MPIPE  is  entered  to  add  training  phases,  and  Sub- 
routine PIPER  and  I.OADSO  are  called  to  check  for  a consistent  phase  sequence. 

4.19  Should  the  user  decline  to  add  training  phases,  control  is  returned  to 
the  calling  routine.  When  training  phases  exist  in  the  training  pipeline,  all 
pipeline  data  are  read  from  data  file  PTPE.  When  all  data  are  read,  a test  is 
made  to  determine  if  any  training  phases  have  been  deleted  in  PROGRAM  LSR1. 

Tf  phases  have  been  deleted  previously,  the  deleted  phases— when  applicable- 
are  purged  from  the  pipeline.  Variable 'KFLJ.S  records  the  numbers  of  the  phases 
which  were  deleted  in  PROGRAM  LSR1 . 

4.20  Subroutine  PIPRT  is  called  if  the  user  desired  to  have  the  pipeline  data 
listed  (IPRT  = 1)  and  Subroutine  MPIPE  called  if  the  user  requested  to  modify 
the  pipeline  data  (LEVLSR  = 3 or  4).  Subroutines  PIPER  and  I.OADSO  are  called 
to  check  for  consistency  in  the  pipeline  data.  Control  is  returned  to  PROGRAM 
LSR2 . 

SUBROUTINE  DPIPE 

4.21  Subroutine  DPIPE  deletes  phases  from  the  training  pipeline.  Upon  entry, 
the  phase  number  to  be  deleted  is  checked  against  the  phase  numbers  in  the 
pipeline.  When  the  appropriate  phase  is  found,  it  is  removed  from  the  pipe- 
line and  all  pipeline  data  are  revised.  For  example,  should  a phase  Primary 
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Training  be  the  precursor  phase  to  Basic  Jet  A and  Basic  Prop,  with  Basic  Prop 
being  deleted,  the  revised  pipeline  would  portray  Primary  Training  leading 
solely  to  Basic  Jet  A.  Control  is  returned  to  the  calling  routine. 

SUBROUTINE  OUTPUT 

•1.22  Subroutine  OUTPUT  computes  the  student  output  for  the  phases  of 
training.  Upon  entry,  the  training  phases  are  scanned  in  reverse  sequence  until 
a phase  is  found  with  a PTR,  i.e..  Advanced  Jet.  The  PTRs  of  the  phases  leading 
to  this  phase  are  selected  and  their  appropriate  PTR  computed.  This  process 
is  continued  until  the  PTRs  are  computed  for  all  training  phases  or  until  no  more 
computations  can  be  made.  When  all  PTRs  are  computed.  Subroutine  OUTPUT 
returns  to  the  calling  routine. 

■4.23  However,  since  the  user  may  enter  the  PTR  of  beginning  phases,  i.e., 
Primary  Training,  rather  than  the  terminal  phases,  i.e.,  Advanced  Helicopter, 
Subroutine  OUTPUT  may  not  be  able  to  compute  all  PTRs.  Note  that  Subroutine 
OUTPUT  only  computes  PTRs  in  a reverse  sequence;  i.e.  , the  PTR  of  Basic  Jet 
A is  the  PTR  of  Basic  Jet  B divided  by  1 minus  the  Basic  Jet  B attrition  rate. 
Subroutine  OUTFOR  is  called,  when  necessary,  to  compute  the  PTR  utilizing 
a forward  progression  through  the  training  pipeline.  Should  neither  Subroutine 
OUTPUT  or  Subroutine  OUTFOR  be  able  to  compute  the  PTR  for  all  training 
phases,  an  error  condition  is  established  and  control  returned. 

SUBROUTINE  OUTrOR 

4.24  Subroutine  OUTFOR  computes  the  training  phase  PTRs  by  utilizing  a 
forward  movement  through  the  training  pipeline.  Upon  entry,  the  training  phases 
are  sequentially  scanned  to  find  a phase  with  a PTR.  The  PTR  of  the  following 
phase,  when  applicable,  is  computed.  Should  a branch  exist  in  the  pipeline, 
e.g.,  Primary  Training  leading  to  Basic  Prop  and  Basic  Jet,  with  the  PTR  of  the 
first  phase  (Primary  Training)  known,  the  user  is  requested  to  distribut.  the  itput  of 
the  first  phase  (Primary  Training)  to  the  other  phases  (Basic  Jet  and  B'  ic  Prop).  The 
process  continues  until  no  further  computations  can  be  performed.  Control 

is  then  returned  to  Subroutine  OUTPUT. 

SUBROUTINE  SMOOTH 

4.25  Subroutine  SMOOTH  scans  the  pipeline  and  minimizes  the  phase  PTRs 
when  possible.  The  programmer  should  note  the  similarity  between  Subroutine 
SMOOTH  and  Subroutines  OUTPUT  and  OUTFOR.  The  difference  in  these  routines 
is  that  all  phase  PTRs  have  been  computed  when  Subroutine  SMOOTH  is  entered. 

4.26  Upon  entry,  all  phase  PTRs  are  scanned  and  recomputed.  When  the  com- 
puted phase  PTR  is  less  than  the  actual  phase  PTR,  the  phase  PTR  is  replaced  by 
the  computed  value.  For  example,  Basic  Jet  A leads  solely  to  Basic  Jet  B and  the 


respective  PTRs  are  10,000  and  1,000  students.  Should  Basic  Jet  B have  no 
attrition,  only  1,000  students  need  to  be  annually  trained  in  Basic  Jet  A.  Con- 
sequently, the  PTR  of  Basic  Jet  A would  be  reduced  accordingly. 

*1.2  7 A flow  chart  of  PROGRAM  LSR2  is  shown  in  Figure  4.  Table  9 contains 
the  variable  dictionary  of  PROGRAM  LSR2;  the  program  and  subroutine  dictionary 
is  provided  in  Table  10.  The  program  listing  is  shown  in  Table  11. 
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PROGRAM  T,SR2  VARIABLE  DICTIONARY* 


Location 

Variable 

lame 

Dimension 

Type 

Description 

Common 

NPHP 

1 

I 

Number  of  training  phases  in 
training  pipeline 

Common 

IPHASFI 

25,4 

I 

Phase  sequence  forltli  item 
in  pipeline.  I PHASE  (I,  J) , 
J = 1,  3 are  the  following 
phase  numbers  of  phase 
I PHASE  (I,  4) 

Common 

ATR 

2 5 

F 

Attrition  rate  for  phar.e  I 

Common 

PNAME 

3 

A 

Name  of  training  pipeline 

Common 

I PRT 

1 

I 

Print  switch 

I PTR  = 0:  do  not  print  pipe- 
line data 

= 1:  print  pipeline  data 

Common 

NPSW 

1 

I 

End  of  file  switch 
NPSW  < end  of  file  reached  in 
data  file  PIPE 

Common 

LSOSW 

1 

I 

Switch  used  to  check  validity 
of  pipeline 

Common 

I DATA 

5 

I 

Following  phase  numbers. 
Note  even  values  are  "g" 

Common 

IC 

1 

I 

Temporary  switch 

Common 

I SAVE 

1 

1 

Save  modified  pipeline  data 
1SAVF  = 0:  do  not  save  pipe- 
line data 

= 1:  save  pipeline  data 

Common 

ATL 

1 

F 

Number  of  student  attrites 

Common 

SIN 

1 

F 

Student  input 

Common 

LI 

1 

1 

Line  number  on  ourputfile 

Common 

SO  UT 

I 

F 

PTR  for  a particular  phase 

Note  that  the  first 

1,450  words  of 

common  are 

listed  in  Table  3 . 

TABLE  10 


PROGRAM  LSR2  PROGRAM  AND  SUBROUTINE  DICTIONARY 


LSR2 

Develops  linkage  to  sequentially  input  all  data  associated 
with  each  pilot  training  pipeline.  Prints  student  statistics 
for  each  pipeline . 

MPIPE 

Modifies  pipeline  data  by  adding  and  deleting  training  phases 
and  revising  particular  data  points. 

PIPRT 

Prints  the  data  associated  with  a particular  training  pipeline. 

LOAD SO 

Loads  a PTR  of  1,000  students  into  each  terminal  pipeline 
phase  for  validation  purposes. 

PIPER 

Tests  a particular  pipeline  for  logical  inconsistencies. 

NOYES 

Reads  a No,  "N,"  or  Yes,  "Y,"  response  from  the  time-sharing 
terminal . 

ERROR 

Prints  error  messages  when  invalid  data  are  entered  by  the  user. 

PI  PENT 

Reads  from  the  time-sharing  terminal  the  user- supplied  pilot 
training  rates  . 

PIPINP 

Enters  pipeline  data. 

DPIPE 

Deletes  training  phases  from  the  training  pipeline. 

OUTPUT 

Develops  the  PTR  for  phases  using  a reverse  scan  of  the 
training  pipeline . 

OUTFOR 

Develops  the  PTR  for  training  phases  using  a forward  scan 
of  the  training  pipeline. 

SMOOTH 

Revises  the  phase  PTRs  so  that  overproduction  will  not  occur 
in  any  phase . 

TABLE  11 


PROGRAM  LSR2  LISTING 


102 

C0HM0N  SWITCH! 1 1 >*NAHE! 25* 3)* SPACE! 25* 50) 

122 

C0MM0N  I C0MMA*  I (LANK*  N0*NYES*  NY.NPH*  I ER*LEVLSR*  I PH*  WPY* 

142 

ftAFD*K ILL* IID»FID»KILLS!23)*SI<25>* TS0UT! 25)* S0! 25) 

162 

C0MM0N  NPHP*  I PHASE!  25*  4>*  ATR!25>*  PNAME!  3)»  IPRT*NPSW*LS0SW 

182 

ft* IDATA!5)*IC 

202 

0PENFILE  "PIPE" 

222 

I DATA! 2)  = I COMMA 

242 

I DATA! 4) »IC0MMA 

262 

LS0SW-O 

282 

REWIND  "PIPE" 

302 

D0  10  I ■ 1 * NPH 

322 

TS0UT! I )«0.0 

3 42 

10 

SI!I)«0.0 

362 

PRINT  700 

382 

CALL  N0YES 

402 

IPRT-NY 

422 

I SAVE«0 

442 

IF!LEVLSR“3)  40*  20*  20 

462 

20 

PRINT  708 

482 

CALL  N0YES 

502 

IF! NY ) 40* 40*30 

522 

30 

I SAVE*  1 

542 

0PENFILE  "PIPES" 

562 

REWIND  "PIPES" 

582 

LI  = 1000 

602 

40 

NPSW-1 

622 

100 

CALL  PI  PI NP 

642 

I F ! NPSW) 200*  100*  1 10 

662 

1 10 

CALL  PI  PENT 

682 

PRINT  70 1 * PNAME 

702 

D0  120  I ■ 1 * N PH P 

722 

K»I PHASE! I* 4) 

742 

SIN=S0! K >/! 1 .0-ATR!K) ) 

762 

ATL“SlN-S0!K> 

782 

TS0UT! K ) »TS0  UT! K ) ♦S0 ! K ) 

802 

SI!K)«SI!K)+SIN 

822 

120 

PRINT  702* !NANE!K*J)*J»1»3>*  SIN* S0!K)*ATL 

8 42 

PRINT  707 

8 62 

IF! ISAVE) 100*  100*  130 

73 


TABLE  ll(Cont) 


882 
902 
922 
9 42 
9 62 
982 
1002 
1022 
1042 
1062 
1082 
1102 
1 122 
1 1 42 
1 162 
1 182 
1202 
1222 
1242 
1262 
1282 
1302 
1322 
1342 
1362 
1382 
1 402 
1422 
1 442 
1 462 
1 482 
1502 
I 522 
1 542 
1562 
1 582 
1602 
1622 
1642 
1662 
1682 


133  WRI T£< "PI  PES"*  709  )L  I * NPHP*  PNAME 

LI-LI+5  » 

D0  140  1=1*  NPHP 
K=IPHASE( I*  4) 

WRITE  ("PIPES"*  710>LI»  < IPHASEU*  J>*  J=  1*  4>*ATR(K> 

KILL=0 

140  LI =L I ♦5 
G0  T0  100 

200  IF(LEVLSR-2)300*300*210 

210  PRINT  703 
CALL  NOYES 
IF(NY>300*300*220 

220  PRINT  704 

INPUT  705* PNAME 
NPHP=0 
CALL  MPIPE 
IF(NPHP>210*210*  1 10 

300  CL0SEFILE  "PIPE" 

I F( I SAVE  >320*320*310 

310  WRI TE( "PIPES"*  709)LI*NPSW*  PNAME 
CL0SEFILE  "PIPES" 

320  PRINT  706 

D0  400  1= 1 * NPH 
ATL*SI  ( I >-TS0UT(  I ) 

400  PRINT  702* CNAME( I* J)* J= 1*3>* SI< I )* TS0UTC I >* ATL 
CHAIN  "XLSR3*" 

700  F0RMAT<  26H  PRINT  ALL  PIPELINES  (Y*N>) 

701  F0RMAT(//5X* 1 4HSTUDENT  TYPE  * 3A4// 18X* 22H. STUDENT  ST 
4ATISTICS./40H  TRAINING  PHASE  INPUT  0UTPUT  ATTRITES/) 

702  F0RMAT< IX* 3A4* F10. 0* 2F8. 0) 

703  F0RMAT  < 25H  ADD  A NEW  PIPELINE  (Y*N) ) 

704  F0RMAT<  38H  ENTER  NAME  0F  PIPELINE  ( AAAAAAAAAAAA) ) 

705  F0RMATC3A4) 

706  F0RMAT( // 5X» "T0 TAL  F0R  ALL  STUDENT  TYPES"// 1 8X* 22H . STU 
4DENT  STATISTICS./"  TRAINING  PHASE  INPUT  0UTPUT  ATT 
4RITES"/) 

707  F0RMAT<//"  "> 

708  F0RMATC"  SAVE  MODIFIED  PIPELINES  ( Y*N > "> 

709  F0RMAT< 21 4* 3A4) 

710  F0RMAT(  I 4*  IX*  41  3*  F8. 4) 

END 
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TABT.T  11  (Cont) 


a.  Subroutine  MPTPT' 


1 702 

SUBROUTINE  MPIPE 

1722 

COMMON  SWI TCH < 1 1 ),NAME< 25,  3)  , SPACEC25,  50) 

17  42 

COMMON  I COMMA*  I BLANK,NO»NYES,NY,NPH,  I ER,LEVLSR,  IPH.  WPY, 

1 762 

AAFD,  KILL* 1 1 D, FI D, K I LL SC 2 5) , SI C 2 5) , TS0UT< 2 5) , S0 C 25) 

1782 

COMMON  NPH  P,  I PHASE <25,  4)  , ATRC  25)  , PN  AMEC  3 ) , I PRT,  N PSW,  L SOSUI 

1802 

i, IDATAC5), IC 

1822 

1 0 

IF(NPHP)  100,  100,20 

18  42 

20 

PRINT  700, PNAME 

1862 

CALL  NOYES 

1882 

IFCNY) 500,  500,  30 

1902 

30 

PRINT  701 

1922 

CALL  NOYES 

19  42 

IFCNY) 50, 50, 40 

1962 

40 

PRINT  711 

1982 

I I D=  1 

2002 

INPUT,  IPH 

2022 

IFC IPH) 50, 50, 46 

2042 

46 

CALL  DPI  PE 

2062 

PRINT  710 

2082 

60  TO  45 

2102 

50 

PRINT  702 

2122 

CALL  NOYES 

2142 

IFC  NY) 60, 60, 70 

2162 

60 

IFC  NPHP) 90,90, 200 

2182 

70 

IFCNPHP-NPH)  i 10,  8 0,80 

2202 

80 

I ER*  5 

2222 

CALL  ERROR 

22  42 

GO  TO  30 

2262 

90 

I ER3  4 

2282 

CALL  ERROR 

2302 

100 

NPHP=0 

2322 

1 10 

N=NPHP 

2342 

NPHPaNPHP*  1 

2362 

PRINT  703 

2382 

120 

INPUT,  IPH 

2402 

IFC  IPH)  1 30,  130,  1 40 

2422 

130 

I ER=  7 

2442 

CALL  ERROR 

2462 

GO  TO  120 

75 
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TABT.E  11  (Cont) 


a.  Subroutine  MPIPC  (Cont) 


2 482 

1 40 

I FC  I PH -NPH  >150/  1 50/  1 30 

2502 

1 50 

IFCN) 190/ 190/ 1 70 

2522 

1 60 

I ER=  1 

2542 

CALL  ERROR 

2562 

G0  T0  50 

2582 

1 70 

D0  180  I*l/N 

2602 

I F( I PHASEC I / 4) -I  PH)  180/  1 60/  180 

2622 

180 

CONTINUE 

2642 

190 

PRINT  704 

2662 

INPUT/ < I PH ASE( NPHPz  J ) z J= 1 z 3) / ATRC I PH > 

2682 

I PHASEC  NPHPz  4)  = I PH 

2702 

G0  TO  50 

2722 

200 

PRINT  705 

2742 

CALL  NOYES 

2762 

IFCNY)220z 220/210 

2782 

210 

CALL  PIPRT 

2802 

220 

PRINT  706 

2822 

CALL  NOYES 

28  42 

IFC  NY  > 10/  10/230 

2862 

230 

PRINT  707 

2882 

240 

INPUT/ iPHz ISW 

2902 

IFC I PH >270/  10/ 245 

2922 

245 

N = 0 

29  42 

DO  260  1*1/ NPHP 

2962 

IFC I PHASEC I, 4) -I  PH) 260/ 250/ 260 

2982 

250 

N = I 

3002 

GO  TO  28  0 

3022 

260 

CONTINUE 

3042 

270 

IER*2 

3062 

CALL  ERROR 

3082 

CALL  PIPRT 

3102 

GO  TO  240 

3122 

28  0 

IFC  I SW>  270/  290/310 

3142 

290 

PRINT  708 

3162 

INPUT/ C I PHASECN/ J)/ J*  1/  3) 

3182 

300 

PRINT  710 

3202 

GO  TO  240 

3222 

310 

PRINT  709 

3242 

INPUT/ ATRC IPH) 

3262 

GO  TO  300 

3282 

500 

CALL  PIPER 

3302 

IFC  NPHP)  90/90/  510 

3322 

510 

RETURN 

7b 


TABLE  11 

a.  Subroutine  MPiPC  (Conti 

3342  700  F0RMAT(//"  PIPELINE  "#  3A4* /"  ANY  DELETIONS*  ADDITIONS*  LI 

3362  ASTS  OR  MODIFICATIONS  (Y*N)") 

3382  701  F0RMATC  24H  DELETE  ANY  PHASES  CY*N)> 

3402  702  FORMAT C " ADD  A NEW  PHASE  (Y*N)") 

3422  703  F0RMAT( 3 1H  ENTER  NUMBER  OF  NEW  PHASE  (XX)) 

3442  704  FORMA T( 42H  ENTER  FOLLOWING  PHASES  AND  ATTRITION  RATE/ 

3462  A48H  (XX* XX* XX* .XXX ) ALL  DATA  FIELDS  MUST  BE  ENTERED/) 

3482  705  FORMAT ( 25H  LIST  PIPELINE  DATA  ( Y*  N ) ) 

3502  706  F0RMAT( 2 1 H MODIFY  A PHASE  ( Y* N ) ) 

3522  707  FORMATC  ENTER  PHASE  NUMBER  AND  SWITCH  (XX.X)"/"  SWITCH  = 

3542  A 0 - MODIFY  FOLLOWING  PHASES"/"  = 1 - MODIFY  ATTRIT 

3562  AI ON  RATE"/”  PHASE  * 0*0  IMPLIES  NO  FURTHER  MODIFICATIONS") 

3582  708  FORMAT ( 34H  ENTER  FOLLOWING  PHASES  (XX*XX*XX)) 

3602  709  F0RMAT(28H  ENTER  ATTRITION  RATE  (.XXX)) 

3622  710  F0RMAT(5H  NEXT) 

3642  711  FORMATC  ENTER  PHASE  NUMBERS  (XX)"/"  ENTER  0*  FOR  NO  FU 

3662  ARTHER  DELETIONS") 

3682  END 
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TABLE  11  (Cont) 
b.  Subroutine  PI  PRT 


3702 

3722 

3742 

3762 

3782 

3802 

3822 

3842 

3862 

10 

3882 

3902 

3922 

39  42 

39  62 

20 

3982 

4002 

30 

4022 

4042 

4062 

40 

4082 

4102 

50 

4122 

60 

4142 

70 

41  62 

4182 

80 

4202 

4222 

700 

4242 

4262 

4282 

701 

4302 

702 

4322 

703 

4342 

SUBR0UTINE  PI PRT 

C0MM0N  SWI TCH ( 1 1 ) * NAMEC 25* 3)*  SPACEC2  5* 50) 

C0MM0N  I COMMA* I BLANK*  N0*NYES*NY*NPH* IER*LEVLSR* I PH# WPY* 
&AFD*  KILL  * 1 1 D*FID*KILLSC25)»SI<25)»TS0UT(  25)*  S0(  25) 

C0MM0N  NPHP*  IPHASEC2  5*  4)  * ATR<  25)  * PN  AMEC  3 ) * IPRT*NPSW*LS0SW 
A* I DATAC  5), IC 
PRINT  7 00*  PNAME 
I F C N PH  P ) 8 0*  8 0*  10 
D0  60  K= 1 * NPHP 
I = I PHASE  CK»  4) 

I C=  1 

D0  30  J= 1 * 3 

IFC IPHASECK* J))30*  30*  20 
IDATAC I C)= IPHASECK* J) 

10102 
CONTINUE 
I C= I C-2 

IF(  IC) 50*  50*  40 

PRINT  701* I* C NAMEC I* J)* J= 1*  3)* ATRC I ) * C I DATAC J)* J= 1 , IC) 

G0  T0  60 

PRINT  701* I*  CNAMEC I* J)* J= 1, 3)*  ATRC  I ) 

CONTINUE 
PRINT  703 
RETURN 
PRINT  702 
G0  T0  70 

FORMAT  C //27H  TRAINING  PIPELINE  FOR  *3A4//6H  PHASE* 

*1 3X* 20HATTRI TI0N  F0LL0WING/37H  N0.  PHASE  NAME  RATE 
A PHASES/) 

F0RMATC  I 4*  4X*  3A4*  F7 . 4*  I 7*  2<  A 1 * I 2)  ) 

F0RMATC  20H  N0  CURRENT  PHASES) 

F0RMATC IX) 

END 
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4362 
4382 
4402 
4422 
4442 
4462 
4482 
4502 
4522 
4542 
4562 
4582 
4602 
4622 
4642 
4662 
4682 
4702 
4722 
4742 
4762 
4782 
48  02 
4822 
48  42 


TABLE  1 1 (Cont) 
c.  Subroutine  I.OADSO 

SUBROUTINE  L0ADS0 

COMMON  SWI TCH ( 1 1 >#NAMEt25# 3)  # SPACEt  25*  50) 

COMMON  I COMMA* I BLANK#  NO#  N YES#  NY#  NPH# I ER#  LEVLSR# I PH# WPY# 
4AFD#KILL#IID#FID#KILLSt25)#SIt25)#  TSOUTt 25) # SO t 2 5) 

COMMON  NPH  P#  I PHASEt  25#  4) # ATRt 2S) # PNAMEf 3) # IPRT#NPSW#LSOSW 
*# I DATAC  5)# IC 
IFtNPHP) 40# 40# 1 0 
10  DO  30  K= 1 # NPHP 
I » I PHASECK# 4) 

S0( I )»0.0 
DO  20  J= 1 # 3 

IFC IPHASE(K#J) )30# 20#  30 
20  CONTINUE 

S0< I ) =- 1 000* 

30  CONTINUE 
LS0SW=  1 
CALL  OUTPUT 
LS0SW=O 

I Ft  I ER) 40# 40#  50 
40  RETURN 
50  IER-3 

CALL  ERROR 
NPHP*0 
GO  TO  40 
END 
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48  62 

4882 

49  02 

4922 

49  42 

49  62 

4982 

10 

5002 

20 

5022 

50  42 

5062 

30 

5082 

40 

5102 

5122 

51  42 

50 

5162 

5182 

60 

5202 

70 

5222 

80 

52  42 

5262 

5282 

90 

5302 

5322 

5342 

5362 

100 

5382 

1 10 

5402 

5422 

120 

5442 

1 30 

TART.T  11  (Conti 

d.  Subroutine  PIPER 

SUBROUTINE  PIPER 

C0MM0N  SWI TCHC  1 1 ),NAMEC2  5#  3)#  SPACEC25.  50) 

C0MM0N  I COMMA# I BL ANK # N0# NYES# N Y# N PH# I ER#LEVLSR# IPH#WPY# 
AAFD#  K ILL# 1 1 D#  F I D#  K I LLSC  25)  # SI (25), TS0UTC25)#  S0( 25) 

C0MM0N  NPHP#  I PHASE<  25#  4) # ATRC 25) # PNAMEC 3 ) # I PRT#  N PS  W#  L S0  S W 
A# I DATAC 5)# IC 
I FCNPHP) 170#  1 70#  20 
D0  140  I = 1 # N PH  P 
I PH =1 PHASEC I#  4) 

IFC I PH) 40#  40#  30 
I F( I PH-NPH) 50#  50#  40 
PRINT  700#  I PH 
CALL  DPI  PE 
G0  T0  10 
D0  9 0 J=  1#  3 

IFC I PHASEC I# J) ) 80# 90# 60 
IFC  IPHASEC  I#  J)- I PH)  7 0#  8 0#  70 
IFCIPHASEC  I#  J)-NPH)90#90#8  0 
PRINT  701# I PH# C IPHASEC I #K),K= 1,3) 

INPUT#  C I PHASEC I#K),K= 1#  3) 

G0  T0  20 
CONTINUE 
IC  = 0 

D0  130  K = 1 # NPHP 

IFC I -K) 100# 1 10# 100 

IFC I PHASEC K#  4)- I PH) 1 10#  40#  110 

D0  130  J= 1 # 3 

IFCIPHASECK#J)-IPH> 130# 120# 130 

I C = I C-*- 1 

CONTINUE 
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5462 

5482 

5502 

5522 

5542 

5562 

5582 

5602 

5622 

5642 

5662 

5682 

5702 

5722 

57  42 
5762 
5782 
5802 
5822 

58  42 

58  62 
5882 
5902 
5922 

59  42 
59  62 


TABLE  11  (Cont) 
d.  Subroutine  PTPER  (Cont) 

I FC I C- 1)1 35# 135# 1 60 

135  IFCATR(IPH)) 137# 140# 136 

136  IFCATRCIPH)-1.0) 140# 137, 137 

137  PRINT  702# I PH#  ATRC I PH) 

INPUT#  ATRC I PH) 

60  T0  135 

140  CONTINUE 

D0  143  I = 1 # N PH  P 
D0  143  J a 1 # 3 

I FC I PHASEC I# J) ) 1 43# 1 43# 1 41 

141  D0  142  K = 1 » N PH  P 

I FC I PHASEC  K# 4) -I PHASEC I# J) ) 1 42#  1 43#  1 42 

142  CONTINUE 
G0  T0  160 

143  CONTINUE 
150  RETURN 
160  PRINT  703 
170  NPHP=0 

GO  TO  1 50 

700  FORMATC  1 3#  " IS  AN  INVALID  PHASE") 

701  FORMATC"  FOLLOWING  PHASES  FOR”# I 3# "# ARE"# 31 3/"  PLEASE 
t CORRECT  CXX#XX#XX)") 

702  FORMATC"  PHASE"#I3#"  ATTRITION  RATE  0F"#F8.4/ 

4"  IS  INVALID  RE-ENTER  THE  CORRECT  VALUE  C.XXX)") 

703  FORMATC"  ALL  PHASES  DELETED") 

END 


TART.F  il  (Cont) 


c.  Subroutine  NOYES 


5982 

SUBROUTINE  NOYES 

6002 

COMMON  SWI TCH ( 1 1 ) # N AMEC  25*  3 ) # SPACE*  2 5#  50) 

6022 

COMMON  I COMMA, I BL ANK # NO, NY ES# N Y# N PH# I ER# L E VL SR, I PH#  WPY# 

6042 

&AFD#  K I LL » 1 1 D# F I D# K I LL S( 25) # SI ( 25) # TSOUTC 25) # SO (25) 

6062 

COMMON  NPHP#  I PHASE*  2S#  4)  # ATR*  25)  # PNAME*  3 ) # I PRT#  N PSW,  L SO SW 

6082 

«#  I DATA* 5 ) # IC 

6102 

10 

1 = 1 

6122 

INPUT  7 00#  NY 

6142 

IF*  NO -NY ) 30* 20#  30 

6162 

20 

NY=- 1*1 

6182 

RETURN 

6202 

30 

I = - 1 

6222 

IFCNYES-NY) 40# 20#  40 

6242 

40 

IER=7 

6262 

CALL  ERROR 

6282 

GO  TO  10 

6302 

700 

FORMAT C A 1 ) 

6322 

END 
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TART  E 1 1 (Cont) 
f.  Subroutine  ERROR 


6342  SUBR0UTINE  ERROR 

6362  C0MM0N  SWITCH(ll). NAME<  25#  3)  . SPACE ( 25*  50) 

6382  C0MM0N  I C0MM A, I BL ANK. N0. NYES. N Y. NPH. I ER. L EVL SR* I PH, WPY. 

6402  AAFD.KILL. I I D» E I D. K ILL S( 25) . SI C 25) . TS0UTC 25) . SOI 2 5) 

6422  COMMON  NPHP.  I PHASEC25.  4)/ ATR<25).  PNAMEC3).  I PRT.NPSW.  LS0SW 

6442  A. I DATA( 5)/ IC 

6462  G0T0  < 1*2,3,  4.  5.6.7. 8. 9.  10).IER 

6482  1 PRINT  701 

6502  G0  T0  100 

6522  2 PRINT  702 

6542  G0  T0  100 

6562  3 PRINT  703 

6582  G0  T0  100 

6602  4 PRINT  704 

6622  G0  T0  100 

6642  5 PRINT  705 

6662  G0  T0  100 

6682  6 PRINT  706 

6702  G0  T0  100 

6722  7 PRINT  707 

6742  G0  T0  100 

6762  8 PRINT  708 

6782  G0  T0  100 

6802  9 PRINT  709* I ID.  FID.  C I DATA(J).J= 1* I PH) 

6822  PRINT  729 

68  42  G0  T0  100 

6862  10  PRINT  710 

6882  100  I ER=  0 

6902  RETURN 

6922  701  F0  RMAT<  " PHASE  IN  PIPELINE") 

6942  702  F0RMATC"  PHASE  N0T  IN  PIPELINE") 

6962  703  F0RMAT  ( **  PIPELINE  L0GIC  ERR0R  - ALL  PHASES  DELETED") 

6982  704  F0RMAT("  N0  PHASES  IN  PIPELINE") 

7002  705  FORMAT!"  MAXIMUM  PHASES  IN  PIPELINE") 

7022  706  F0RMATC  37H  MAX.  F0R  FIELD  IS  3 - FIELD  SET  T0  0) 

7042  707  FORMAT! " INVALID  REPLY  - REPEAT") 

7062  708  F0RMAT( 23H  COMPUTER  ERROR#  RE-RUN) 

7082  709  FORMAT  C 27H  RESIDUAL  OUTPUT  FROM  PHASE.  13. 3H  IS.F6.0.9H  STUDEN 

7102  ATS/34H  DIVIDE  AMONG  THE  FOLLOWING  PH ASES. I 3. 2! A 1 # I 2 ) ) 

7122  710  F0RMATC"  INSUFFICIENT  DATA  T0  COMPUTE  STUDENT  STATISTICS"/ 

7142  A"  RE-ENTER  STUDENT  ASSIGNMENTS  OR  RERUN") 

7162  729  FORMAT ! " ENTER  APR0PI ATE  MIX  ! XXXXX .. XXXXX XXXXX .) "/"  ") 

7182  END 
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TABLE  11  (Cont) 
q.  Subroutine  PI  PE  N'T 


7202 
7222 
7242 
7262 
7282 
7302 
7322 
7342 
7362 
7382 
7402 
7 422 
7442 
7462 
7482 
7502 
7 522 
7542 
7562 
7 582 
7602 
7622 
7642 
7662 
7682 
7702 
7722 
7742 
7762 
7782 
7802 
7822 
78  42 
7862 


SUBROUTINE  PIPENT 

COMMON  SWI TCHC I 1 )#  NAME?  2 5# 3)#  SPACE?  2 5# 50) 

COMMON  I COMMA*  IBLANK#N0#NYES#NY#NPH#  I ER#LEVLSR#  I PH#  WPY# 
AAF D» K I LL # 1 1 D#  F I D»KILLS?25)#  SI ? 25) # TS0UT?25)#  S0 ? 25) 

COMMON  NPHP#  I PHASE (2 5,  4)  , ATR?  25)  # PN AMEC  3 ) # IPRT#NPSW#LSOSW 
A,  I DATAC  5)  # I C 
5 DO  10  1=1#  NPH 
10  S0?I)=O.O 

PRINT  7 02#  PNAM E 
20  INPUT# IPH# SOUT 
IFCIPH)60#90#30 
30  IF? IPH-NPH) 40#  40#  60 
40  DO  50  1 = 1#  NPH P 

I F?  I PHASE ? I # 4) -I  PH) 50# 70#  50 
50  CONTINUE 
60  I ER=2 

CALL  ERROR 
GO  TO  20 

70  IF? S0UT) 60#80#80 
80  SO ( I PH ) = - SO UT 
PRINT  703 
GO  TO  20 
90  CALL  OUTPUT 

IFC IER) 120# 120# 100 
100  CALL  ERROR 
GO  TO  5 

120  CALL  SMOOTH 
RETURN 

700  FORMAT?  5X#  5E13*  6) 

702  FORMAT?//"  FOR  PIPELINE  "#3A4/"  ENTER  PHASE  NUMBER  AND  ST 
AUDENT  OUTPUT  ? XX# XXXX . ) "/"  PHASE  0# 0 IMPLIES  NO  FURTHER  A 
ASSIGNMENTS") 

703  FORMAT? 5H  NEXT) 

END 


84 


I 


TABLE  11  (front) 
h.  Subroutine  PI  PINT 

7882  SUBROUTINE  PIPINP 

7902  C0MM0N  SWI  TCH<  1 I ),NAME<25,  3),SPACE<25,  50) 

7922  C0MM0N  1 COMMA,  I BLANK ,N0,NYES,NY,NPH,  I ER,LEVLSR,  I PH*  WPY  , 

79  42  4AFD,  K I LL, I I D,  FI D, K I LL S f 25) * SI ( 25> , TS0UT! 25) , S0 C 25) 

7962  C0MM0N  NPH  P,  I PHASE!  25,  4)  , ATR(  25)  , PN  AMEC  3 ) , I PRT,  N PSW,  L S0S  W 

7982  4, IDATA!5), IC 

8002  FILENAME  PIPE 

8022  PI PE= "PI  PE” 

8042  IECNPSW) 65* 10* 10 

8062  10  READ!PIPE,700)NPHP,PNAME 

8082  I F CNPHP)  60*  50#  30 

8102  30  D0  40  I 3 1 * NPHP 

8122  READ! PIPE, 701 ) IL * C I PHASEC I » J ) , J* 1,  4), AT 

8142  I PH =1  PHASE! I , 4) 

8162  40  ATR! I PH  ) = AT 

8182  G0  T0  70 

8202  50  PRINT  702,PNAME 

8222  NPHP=0 

8242  CALL  N0YES 

8262  IF!NY)60,  60*  120 

8282  60  NPSW=NPHP 

8302  65  RETURN 

8322  70  I F ( K ILL  >90,9  0,  80 

8342  80  D0  85  1=1, KILL 

8362  1 1 D* - 1 

8382  I PH *K I LL  S! I ) 

8 402  8 5 CALL  DPI  PE 

8 422  1 1 D=  0 

8442  IF(NPHP) 50, 50, 90 

8462  90  IF<  I PRT)  1 1 0,  1 1 0,  100 

8482  100  CALL  PI PRT 

8502  110  IFCLEVLSR-2) 130, 130, 120 

8522  120  CALL  MPIPE 

8542  130  CALL  PIPER 

8562  IF(NPHP>50, 50, 1 40 

8582  140  IF(NPHP-NPH) 150, 1 50, 50 

8602  150  CALL  L0ADS0 

8622  IFINPHP)  50,  50,  60 

8642  700  FORMAT!  5X,  I3,3A4) 

8662  701  F0RMAT ! V ) 

8682  702  F0RMATC  3 1 H N0  PHASES  EXIST  F0R  PIPELl^ 

8702  4 DATA  ( Y, N ) ) 

8722  END 
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TART.E  11  (Cont) 


i.  Subroutine  DPTPP 


8742 

SUBROUTINE  DPIPE 

8762 

COMMON  SWITCHf 1 1)*NAMEC25*  3)*  SPACE(25*  50) 

8782 

COMMON  I COMMA* I BLANK* NO* NYES»NY* NPH* I ER* LEVLSR* I PH* WPY* 

8802 

&AFD*  KILL*  IID*FID*KILLS(25)*SI<25)»  TS0UT<  25>»S0C25) 

8822 

COMMON  NPHP*  I PHASE ( 25*  4) * ATR< 25) * PN AME< 3) * I PRT* NPSW* L SOS W 

8842 

t*IDATA(5)*IC 

8862 

IFC  I PH ) 7 0*  70*  5 

8882 

5 

DO  30  1 = 1*  NPHP 

8902 

DO  30  J=  1*  4 

8922 

IF( IPHASE< I»J)-IPH)30»20* 10 

89  42 

10 

IF(IID)15*  30*30 

8962 

15 

IPHASEd*  J)=IPHASE<I*J)-1 

8982 

GO  TO  30 

9002 

20 

I PHASE< I * J ) =0 

9022 

30 

CONTINUE 

9042 

I F < 1 1 D)  40*  70*  70 

9062 

40 

IF<IPH-25)50*70*70 

9082 

50 

DO  60  I • I PH  * 2 4 

9102 

K=  I ♦ 1 

9122 

60 

ATRC I ) =ATRCK) 

9142 

70 

L =0 

9162 

DO  90  1=1* NPHP 

9182 

I F(  I PHASE < 1*4)  )8 0*8 0*90 

9202 

80 

L»I 

9222 

GO  TO  110 

9242 

90 

CONTINUE 

9262 

100 

RETURN 

9282 

1 10 

IF(L-NPHP) 120* 140* 140 

9302 

120 

M-NPHP-1 

9322 

DO  130  I«L*M 

9342 

Ka  I ♦ 1 

9362 

DO  130  J=l*  4 

9382 

130 

I PHASEC I * J)  = I PHASEtK* J) 

9 402 

140 

NPHP«NPHP- 1 

9422 

IFCNPHP)  100*  100*  70 

9 442 

END 
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TABLE  11  (Conti 
Subroutine  OUTPUT 


9462 
9482 
9502 
9522 
9 542 
9562 
9582 
9 602 
9622 
9 642 
9662 
9 682 
9702 
9722 
9742 
9762 
9782 
9802 
9822 
9842 
9862 
9882 
9902 
9922 
99  42 
9962 
9982 
10002 
10022 
10042 
10062 
10082 
10102 
10122 
10142 
10162 
10182 
10202 


SUBROUTINE  OUTPUT 

COMMON  SWITCHC 1 1 )#NAME<25# 3)» SPACE<25* 50) 

COMMON  I COMMA#  I BLANK#  NO*  N YES#  NY*  NPH#  I ER*  LEVLSR*  I PH#  WPY# 
AAFD#  K ILL* 1 1 0#  FI D#KILLS<25)*  SI ( 25)#  TS0UTC  25) * S0( 25) 

COMMON  NPHP#  I PHASE( 25#  4>#  ATRC  25)#  PNAMEC  3)#  I PRT*NPSW*LS0SW 
A* I DATAC 5) * I C 
IER*0 
10  I CK=  0 
I ALL  = 0 

DO  60  L» 1# NPHP 
M«NPHP+1-L 
1=1 PHASECM* 4) 

I F ( SO  ( I ) ) 50*  20*  20 
20  TA=0.0 

DO  40  J«  1*3 
K=IPHASE<M* J) 

IFCK) 40* 40#  30 
30  IFCSO(K) ) 3 5* 60#  60 
35  TA=TA+S0CK)/( 1 • O-ATRCK) ) 

40  CONTINUE 

IF( TA) 45#  60# 60 
45  ICK= 1 

S0CI)»TA 
50  IALL-IALLM 

IF(IALL-NPHP) 60*80# 80 
60  CONTINUE 

IFC ICK) 70* 70# 10 
70  IFCLS0SW)75#75#90 

75  Call  0utfor 

I F < NY  ) 9 0#  9 0#  10 
80  DO  85  L*  1 # NPHP 
I *1 PHASECL# 4) 

85  SO (!)■■> SO (I) 

60  TO  100 
90  IER«10 
100  CONTINUE 
RETURN 
END 
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TABLE  11  (Cont) 
k.  Subroutine  OUTFOR 


10222 

SUBROUTINE  0UTF0R 

10242 

C0MM0N  SWITCH C 1 1>*NAMEC25*  3>*SPACE<25*  50) 

10262 

COMMON  I COMMA*  I BLANK*  NO*NYES*NY*NPH*  I ER*LEVLSR*  I PH*  WPY* 

10282 

AAFD* KILL*  IID*FID*KILLS(25)*SI(25)*TS0UT(25)*S0(25) 

10302 

COMMON  NPHP*  I PHASER  25*  4>  * ATR(  25)  * PNAMEC  3>*  I PRT*  NPS  W*L  SOS  W 

10322 

A* I DATAC  5) * I C 

10342 

DIMENSION  TC  3) 

10362 

NY=  0 

10382 

10 

I CK*  0 

10402 

DO  170  11=1*  NPHP 

10422 

I = 1 PHASEC  11*4) 

10442 

IFCSOCI)) 20* 170* 170 

10462 

20 

TA=0.0 

10482 

IL  = 1 

10502 

DO  60  J=  1*3 

10522 

K=IPHASEC II* J) 

10542 

I FOO  60*  60*  30 

10562 

30 

IFCS0CK)>4O»5O*  50 

10582 

40 

TA=TA*S0CK)/C 1.0-ATRCK)) 

10602 

GO  TO  60 

10622 

50 

I DATAC IL)=K 

10642 

IL=IL+2 

10662 

L-K 

10682 

60 

CONTINUE 

10702 

A=S0CI>-TA 

10722 

IL=IL-2 

10742 

IFCIL-l  ) 170*80*  110 
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TABLE  11  (Cont) 
k.  Subroutine  OUTFOR  (Cont) 


10762 

80 

IF(A>90# 180# 180 

10782 

90 

S0CL>*A*< 1 .O-ATRCL)) 

10802 

NY*1 

10822 

I CK*  1 

108  42 

60  T0  170 

10862 

110 

A*-A 

10882 

I FC  A)  180#  180#  120 

10902 

120 

1 1 D*I 

10922 

IER-9 

10942 

IPH-IL 

109  62 

FI  D*  A 

10982 

CALL  ERR0R 

1 1002 

N«IL/2  ♦ 1 

11022 

125 

INPUT# <T(J>#J=1#N) 

1 1042 

T0T=O.O 

11062 

D0  130  J-1#N 

1 1082 

IFC  T< J>  > 1 40#  140#  130 

11102 

127 

I ER=2 

11122 

130 

T0T-T0T  ♦ TCJ> 

11142 

R*ABS<  T0T-A) 

11162 

IFCR-1.5) 150# 150# 140 

1 1182 

1 40 

IER«7 

1 1202 

CALL  ERR0R 

11222 

60  T0  125 

1 1242 

150 

J-0 

1 1262 

D0  160  Ls  1 « IL«  2 

11282 

JaJ^l 

11302 

K=IDATA<L) 

11322 

160 

S0CK)«-T< J)*< l.O-ATR<K»)4A/T0T 

11342 

ICK=1 

11362 

NY*  1 

11382 

170 

CONTINUE 

11402 

I FC ICK) 180# 180# 10 

1 1422 

18C 

RETURN 

11442 

END 
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TABLE  11  (Cont) 

1.  Subroutine  SMOOTH 


1 1 462 

SUBROUTINE  SMOOTH 

11  482 

COMMON  SWITCHC 1 1 ) * NAMEC  25*  3) * SPACEC  25*  50) 

11502 

COMMON  I COMMA*  I BL  ANK*  NO*NYES»  NY#NPH*  I ER*  LEVLSR*  I PH*  WPY* 

11522 

AAFD»K ILL*  IID*FID*KILLSC25)*SIC25)*TS0UTC25)*S0C25) 

11542 

COMMON  NPHP*  I PHASEC  25*  4) * ATRC  2 5)  * PNAMEC  3)  * I PRT. NPS W*  L SOSW 

1 1562 

4 

,*  IDATAC  5) * I C 

11582 

DIMENSION  TC3) 

11602 

5 

DO  20  L= 1 * NPH P 

11622 

I =1 PHASECL* 4) 

11642 

DO  10  J-1.3 

11662 

IFC  I PHASECL* J> ) 10* 10*20 

11682 

10 

CONTINUE 

1 1702 

SOC  I ) =- SO  ( I ) 

1 1722 

20 

CONTINUE 

11742 

30 

I CK=  0 

11762 

I ALL  = 0 

11782 

DO  110  L = 1 * N PH  P 

1 1802 

M=NPHP+1-L 

1 1822 

I =1  PHASEC  M, 4) 

1 1842 

IFCS0CI))  100*  100*  40 

1 1862 

40 

TA=  . 0 1 

11882 

DO  70  J ■ 1 * 3 

1 1902 

K=IPHASECM* J) 

1 1922 

IFCK)70*  70*  50 

1 1942 

50 

IF(S0CK))6O»7O*  110 

1 1962 

60 

TA*»TA«-SOCK)/C  1 • 0- ATRCK)  ) 

1 1982 

70 

CONTINUE 

12002 

IFC SO CI)+TA)90* 80*80 

12022 

80 

S0CI)»TA-.O1 

12042 

GO  TO  100 

12062 

90 

SOC I > =-SOC I ) 

12082 

ICK=  1 

12102 

100 

IALL-IALL+1 

12122 

1 10 

CONTINUE 

12142 

IFC I ALL -NPHP) 30* 120* 120 

12162 

120 

DO  130  L ■ 1 * N PH P 

12182 

I *1 PHASECL* 4) 

12202 

130 

SOCI )»-S0CI > 

12222 

IFC ICK) 1 40* 140* 150 

12242 

140 

CONTINUE 

12262 

RETURN 

90 


TABLE  11  (Cont) 


1.  Subroutine  SMOOTH  (Cont) 


12282 

1 50 

DO  300  IIs 1 # N PH  P 

12302 

1*1 PHASE< 11*4) 

12322 

TA*  -.01 

12342 

IL*-l 

12362 

00  170  J*  1 « 3 

12382 

K=IPHASE< II* J) 

12402 

IFCK) 170* 170# 160 

12422 

160 

IL* IL+2 

12442 

I DATAC IL) *K 

12462 

TA*TA  ♦ S0OO/<  1.0-ATR<K>) 

12482 

170 

CONTINUE 

12502 

T<1)=1.0 

12522 

R*  1 * 0 

12542 

IF<TL>300#  300# 180 

12562 

180 

IF<S0(L)-TA) 190# 300# 300 

12582 

190 

IFCIL-  1 >300#  250#  195 

12602 

195 

1 1 D=L 

12622 

FI O*S0(L) 

12642 

I ER=9 

12662 

I PH  = IL 

12682 

CALL  ERROR 

12702 

N=IL/2  ♦ 1 

12722 

200 

INPUT#  <T<I)#I*1#N) 

12742 

R-0.0 

12762 

00  2 40  I = 1 # N 

12782 

R*R+T( I ) 

12802 

I FC  T(  I ) >280#  240#  240 

12822 

(O 

* 

o 

CONTINUE 

12842 

TA*ABS( R-S0<L  > > 

12862 

IF(TA-1*5)2 50# 2 50#  28 0 

12882 

250 

1*0 

12902 

00  260  J*  1# IC#  2 

12922 

1*1  + 1 

12942 

K*I DATAC J) 

12962 

260 

S0(K)*T(I)*S0(L)*( 1 .O-ATR(K) )/R 

12982 

60  TO  5 

13002 

280 

IER-7 

13022 

290 

CALL  ERROR 

13042 

60  TO  200 

13062 

300 

CONTINUE 

13082 

60  TO  5 

13102 

END 

' 


V.  PROGRAM  LSR3 


PROGRAM  DESCRIPTION 

5.1  PROGRAM  LSR3  develops  LSR  output  statements,  i.e.,  resource  require- 
ments associated  with  the  student  outputs  for  each  training  phase  developed 
in  PROGRAM  LSR2  . Upon  entry,  control  is  transferred  to  Subroutine  LSTLSR  to 
print  the  LSR  output  statements.  When  control  is  returned,  the  LSR  level  of 
complexity,  LEVLSR,  is  tested  for  a value  of  2 or  4 . Should  either  value  be 
present,  control  is  passed  to  Subroutine  MODLSR  which  constrains  the  LSR 
output  due  to  limited  training  resources.  When  control  returns  or  if  the  level 

of  complexity  is  not  2 or  4 , the  user  is  asked  whether  he  desires  to  generate 
another  LSR  output  based  on  a different  PTR.  If  another  LSR  output  is  requested, 
control  is  transferred  to  PROGRAM  LSR1;  otherwise  control  is  passed  to  PROGRAM 
LSR4  to  compute  the  runway  requirements. 

SUBROUTINE  LSTLSR 

5.2  Subroutine  LSTLSR  develops  the  necessary  program  linkage  to  print  LSR 
output  statements,  i.e.,  either  detail  or  summary  and  develop  a data  file, 
LSROUT,  of  the  LSR  information  for  use  in  subsequent  programs.  Upon  entry, 
data  file  LSROUT  is  opened  and  rewound.  Next  the  number  of  training  phases 
is  written  on  data  file  LSROUT.  Subroutine  GENLSR  is  then  called  sequentially 
for  each  training  phase  to  develop  the  LSR  data. 

5.3  After  Subroutine  GENLSR  has  been  called  for  each  training  phase,  data 
file  LSROUT  is  closed.  The  user  is  then  asked  whether  a detailed  LSR  output 
is  desired.  If  the  detailed  LSR  data  are  requested,  control  is  again  passed  to 
Subroutine  GENLSR  for  each  phase  of  training.  Control  is  then  returned  to 
PROGRAM  LSR3 . 
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KBCEDIIC  PAai£ 


rmnp 


> 

% 


SUBROUTINE  MODI, SR 


5.4  Subroutine  MODT.SR  develops  constrained  I. SR  data  resulting  from  limited 
training  resources  which  are  user- suppl ted . Upon  entry,  the  user  is  asked 
whether  he  wishes  to  constrain  the  I.SR  output.  With  a Yes,  "Y,"  response, 
the  user  inputs  the  number  of  the  training  phase  to  be  constrained.  A check 

is  made  to  determine  the  validity  of  the  phase  number  entered. 

5.5  Subroutine  GENT, SR  is  called  to  develop  a detailed  LSR  outout  for  the 
training  phase  the  user  wishes  to  constrain.  The  user  must  then  enter  the  type 
of  constraint  he  wishes  to  impose  on  the  selected  training  phase  , i .e.  , constrain 
aircraft,  flight  instructors,  enlisted  personnel,  or  academic  instructors.  Sub- 
routine MODLSR  validates  the  user  response  and  reguests  the  user  to  enter  the 
amount  of  the  limiting  resource  available.  For  each  resource  constrained,  a 
computation  is  made  to  determine  the  total  number  of  students,  i.e.,  student 
output,  which  can  be  annually  trained  with  the  limited  resource.  The  results 

of  this  computation  are  then  displayed  for  the  user.  The  user  may  impose 
additional  constraints  on  the  training  phase. 

5.6  When  all  constraints  have  been  imposed  on  the  training  phase,  the  user 

is  asked  whether  he  wishes  a detailed  LSR  output  for  the  phase  he  has  constrained. 
With  a Yes,  "Y,"  response , Subroutine  GENI.SR  is  called  to  develop  the  detailed  LSR 
output  which  will  not  exceed  the  most  limiting  training  resource.  The  user  may 
then  constrain  additional  phases  of  training. 

5.7  When  no  further  constraints  are  desired,  the  user  may  constrain  all  train- 
ing phases  by  adjusting  the  PTR  in  each  training  pipeline,  i.e.,  for  each  student 
source.  If  the  user  wishes  to  exercise  this  option,  control  is  transferred  to 
PROGRAM  I.SR2;  otherwise,  control  is  returned  to  the  calling  routine. 

SUBROUTINE  NOYES 

5.8  Subroutine  NOYES  is  designed  to  read  a Yes,  "Y,"  or  No,  "N,"  resDonse 
from  the  time-sharing  terminal.  Switch  NY,  which  is  carried  through  common,  is 
set  to  -1  with  a No  reply  and  to  1 for  a Yes  reply.  Whenever  a Yes  or  No  response 
is  reguired,  control  is  transferred  to  Subroutine  NOYES,  which  immediately  returns 
control  with  Switch  NY  appropriately  set. 

SUBROUTINE  GENLSR 

5.9  Subroutine  GENI.SR  generates  LSR  summary  statements  for  a phase  of 
training.  Upon  entry,  the  LSR  output  data  are  initialized.  The  student  load  for 
the  phase  is  then  computed.  A test  is  made  to  determine  whether  the  training 
phase  contains  flight  instruction.  If  flight  training  is  included  in  the  phase, 
the  number  of  aircraft,  landing  support  officers,  gallons  of  fuel  consumed, 
flight  instructors,  flight  instructors  under  training,  and  enlisted  support  per- 
sonnel are  computed.  Enlisted  support  personnel  requirements  are  then  increased 
to  include  administrative  enlisted  personnel. 


I 

5.10  A test  is  next  made  to  determine  whether  academic  instruction  is  included 
in  the  training  phase.  Required  academic  instructors  and  academic  instructors 
under  training  are  computed  when  appropriate.  The  number  of  administrative 
officers  is  then  computed  from  the  total  number  of  phase  personnel  required. 

5.11  Depending  on  Switch  MY,  which  is  carried  through  common,  either  a 
summary  or  a detailed  T.SR  output  is  printed  for  the  training  phases.  With 

NY  = -1  , a one-line  LSR  summary  is  printed  and  the  total  LSR  output  is  written 
on  data  file  I.SROUT.  When  NY  = 1,  only  a detailed  LSR  output  is  printed. 
Subroutine  GENLSR  then  returns  control  to  the  calling  routine. 

5.12  A flow  chart  of  PROGRAM  LSR3  is  shown  in  Figure  5.  Table  12  contains 
the  variable  dictionary'  of  PROGRAM  LSR3;  the  program  and  subroutine  dictionary 
is  provided  in  Table  13.  The  program  listing  is  shown  in  Table  14. 
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TABLE  12 

PROGRAM  LSR3  VARIABLE  DICTIONARY* 


Location 

Variable 

Name 

Dimension 

Type 

Description 

Common 

IACT 

3 

A 

Aircraft  types 

Common 

I AFT 

3 

A 

Fuel  types 

Common 

IAIN 

3 

A 

Academic  instruction  types 

Common 

BF 

3 

F 

Bulk  fuel  requirements 

Common 

FIT 

3 

F 

Flight  instructors  under 
training 

Common 

FI 

3 

F 

Required  flight  instructors 

Common 

FLSO 

3 

F 

Required  number  of  landing 
support  officers 

Common 

EM 

3 

F 

Enlisted  support  requirements 

Common 

AIT 

3 

F 

Academic  instructors  under 
training 

Common 

ACNO 

3 

F 

Number  of  aircraft  required 

Common 

AI 

3 

F 

Academic  instructors  required 

MODLSR 

IF 

1 

I 

Field  to  be  constrained 

MODLSR 

IE 

1 

I 

Element  to  be  constrained 

MODLSR 

D 

1 

F 

Resource  available 

MODLSR 

V 

1 

F 

Resource  required 

MODLSR 

SOUT 

1 

F 

Constrained  student  output 

GENLSR 

U 

3 

F 

Annual  aircraft  utilization 

GENLSR 

SL 

1 

F 

Student  load 

GENLSR 

FACT 

1 

F 

Ratio  of  total  enlisted  support 
required  to  enlisted  mainte- 
nance personnel 

GENLSR 

EMT 

1 

F 

Total  enlisted  personnel 

* See  variable  dictionary  for  PROGRAM  LSRM  in  Table  3 for  description  of 
other  common  variables. 


TABLE  12  (Cont) 

Variable 

Location  Name  Dimension  Type  Description 

GENLSR  TSP  1 F Ratio  of  number  of  administra- 

tive officers  required  to  total 
phase  personnel 

GENLSR  AM  1 F Total  administrative  officers 

GENLSR  IC  1 F Line  number  for  LSROUT 


I 


TABLE  13 

PROGRAM  LSR3  PROGRAM  AND  SUBROUTINE  DICTIONARY 


LSR3 

Develops  appropriate  program  linkage  to  list  LSR 
summary  statements 

LSTLSR 

Prints  LSR  summary  headings 

MODLSR 

Constrains  LSR  output 

NOYES 

Reads  a Yes,  "Y,"  or  No,  "N,"  response  irom  the 
time- sharing  terminal 

GENLSR 

Develops  LSR  output  data 

* 
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TABLE  14 

PROGRAM  LSR3  LISTING 


C0MM0N  SWITCH(ll) 

C0MM0N  NAME ( 25#  3)#NPLAC25#  3)#  NFUELC  25#  3) #NACD<  25#  3)  # ATP< 25)  # 
XtfKf  25)#  T0D<  25)#  NAC<  25)#  NADI  25)#  NX  (2  5#  3)#  GASC  25#3)#AU(25#3)# 
AFU(  25#  3)  # SFH( 25#3>,FIHC25,3),  FTR( 25#  3)#  FS0<  25#  3>#  AH0<  25#  3)# 
AASH<25#  3)#AIH(25#3)#AITR<25#3) 

C0MM0N  I C0MMA#  I BLANK  # Nf#NYES#  NY#NPH#IER#LEVLSR#IPH#  WPY# 

AAFD#  KILL#  IID»FID»KILLS(25)#SINP(25)#S0<25) 

C0MM0N  IACTC3J# IAFT<3># I AINC  3) # BFC 3) # FI  TC  3 > # FI  < 3) , 
*FLS0C3)#EM(3)# AITC3)# ACN0C3), Alt  3) 

I ID- 1 OOO 
CALL  LSTLSR 
IF<LEVLSR-2)30# 20,  10 
10  I FCLEVLSR-4)  30#  20#  30 
20  CALL  M0DLSR 
30  IF(LEVLSR)50#  50#  40 
40  PRINT  700 
CALL  N0YES 
I F( NY ) 60# 60# 70 
50  LEVLSR--LEVLSR 
60  CHAIN  -XL SR 44” 

70  CHAIN  "XL SRI*” 

700  F0RMATC27H  GENERATE  ANOTHER  LSR  <Y#N)> 

END 


( 


103 

123 

143 

163 

183 

203 

223 

243 

263 

283 

303 

323 

343 

363 

383 

403 

423 

443 

463 

483 

503 

523 

543 


104 


TABLE  14  (Cont) 
a.  Subroutine  LSTLSR 


563 

SUBROUTINE  LSTLSR 

583 

COMMON  SWITCHC11) 

603 

COMMON  N AMEC  85#  3)  #NPLAC  25#  3># NFUEL C 85#  3) #NACDC 25#  3)  # 

ATPC25) 

683 

AWKC  25)#  TO DC 25)#NAC< 25)#NAD( 25)#  WXC  25# 3># 6ASC85# 3># AUC 85# 3># 

643 

6FUC  25#  3) # SFHC  25»3)#FIHC85#3)* FTRC  25#  3>#  FS0C25#  3>#  AM0C  25#  3># 

663 

6ASHC25#  3>#AIHC85#3)#AI  TRC25#  3) 

683 

COMMON  1 COMMA#  IBLANK#MO#NYES#NY#NPH#  1 ER# LEVA- SR#  IPH#  WPY# 

703 

*AFD#K ILL# 1 1 D#  FI D# KILL SC 85) # SINPC  25) # SO C 25) 

783 

COMMON  IACTC3)# IAFTC3)# I AINC 3># BFC3)# FI TC 3># FI C 3) # 

743 

6FLS0C  3)  # EMC  3)  # AI TC  3>#  ACNOC  3)#  AI  C 3) 

763 

PRINT  700 

783 

PRINT  701 

803 

NY»0 

883 

OPENFILE  "LSROUT" 

843 

REWIND  "LSROUT" 

863 

WRITEC"LSR0UT"#7O3)NPH 

883 

DO  10  I* 1#NPH 

903 

I PH*I 

983 

CALL  6ENLSR 

943 

10  CONTINUE 

963 

CLOSEFILE  "LSROUT" 

983 

PRINT  702 

1003 

CALL  NOYES 

1083 

IFCNY) 40# 40# 20 

1043 

20  DO  30  I» 1#NPH 

1063 

IPH*  I 

1083 

CALL  6ENLSR 

1103 

30  CONTINUE 

1 123 

40  RETURN 

1143 

700  F0RMATC//19X# "STUDENT  AIRCRAFT  FUEL  CONSUMED 

TOTAL 

1163 

AOTAL") 

1 183 

701  F0RMATC69H  TRAINING  PHASE  LOAD  TYPE  NO. 

TYPE  i 

1203 

AL0MS 

1883 

A OFF  ENL) 

1843 

702  F0RMATC//34H  DETAILED  LSR  OUTPUT  DESIRED  CY#N)> 

1863 

703  FORMATC  5H 1 000  #13) 

1883 

END 

TABLE  14  (Cont) 
b.  Subroutine  MODLSR 


1303 
1323 
1343 
1363 
1383 
1403 
1423 
1443 
1 463 
1 483 
1503 
1523 
1543 
1563 
1583 
1603 
1623 
1643 
1663 
1683 
1703 
1723 
1743 
1763 
1783 
1803 
1823 
1843 
1863 
1883 
1903 
1923 
1943 
1963 
1983 
2003 
2023 
2043 
2063 
2083 
2103 
2123 
2143 


SUBROUTINE  MODLSR 
COMMON  SWITCH(ll) 

COMMON  NAME<  25*  3)  * NPLAC  25*  3) .NFUEL ( 25*  3)  * NACDC  25*  3 ) * ATP(  25)  * 
iWK(25)*T0D(25>*  NAC<  25)*NAD(  25)*WX(25*3)*GAS(25*3)*AU(25*3). 
4FU(25*3)*SFH(25*3)*FIH<25*3)*FTR(25*3)*FS0<25*  3). AMO < 25*  3)  * 
*ASHC25*3)*AIHC25*3).  AITRC25.3) 

COMMON  I COMMA* I BLANK.NO.NYES.NY*  NPH* I ER*  LEVLSR* I PH* WPY* 
AAFD.KILL*  1 I D* FI D*K ILLS( 25) * SINPC25)*S0C25) 

COMMON  IACT<3)*IAFT<3)*IAIN<3)*BF<3)*FIT(3)*FI<3)* 

AFLSO C 3) * EM<  3)  * AI TC 3) * ACNOf 3) * AI C 3) 

5 PRINT  700 
CALL  NOYES 
IF(NY) 10* 10* 20 
10  RETURN 
20  PRINT  701 
40  INPUT. I PH 

I F C I PH  > 50*  2 60*  60 

50  PRINT*  " INVALID  REPLY  - REPEAT" 

GO  TO  40 

60  IF(IPH-NPH)65*  65*50 

65  S0UTs  SO  C I PH) 

1F<  SOUT) 66*  66*  67 

66  PRINT  714 
GO  TO  5 

67  CALL  GENLSR 
PRINT  703 

70  INPUT* IF* I E 

IF(1F>110*  250*80 
80  IF( IF- 3)90*90* 100 
90  N«NAC(IPH> 

GO  TO  130 

100  IFC  IF-4)  1 10.  120*  1 10 

110  PRINT*  " INVALID  REPLY  - REPEAT" 

GO  TO  70 
120  N-NADCIPH) 

130  I F(N) 5*  5* 140 
140  IF(IE) 110. 1 10* 145 
145  IF(IE-N) 150* 150* 1 10 
150  PRINT  705 
155  INPUT. D 

IFCD-O.  1 > 1 57,  157,  160 
157  PRINT*  " INVALID  REPLY  - REPEAT" 

GO  TO  155 
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TABLE  14  (Cont) 
b.  Subroutine  MODLSR  (Cont) 


2163 

2183 

2203 

2223 

2243 

2263 

2283 

2303 

2323 

2343 

2363 

2383 

2403 

2423 

2443 

2463 

2483 

2S03 

2523 

2543 

2563 

2583 

2603 

2623 

2643 

2663 

2683 

2703 

2723 

2743 

27  63 
2783 
2803 
2823 

28  43 
28  63 
2883 
2903 
2923 
2943 
2963 
2983 
3003 
3023 
3043 
3063 
3083 
3103 


160  60  T0  < 170#  180#  190*200)#  IF 
170  V*ACN0! I E) 

G0  T0  210 

180  V"FIT<IE)>FI<IE) 

60  T0  210 
190  V»EM! IE) 

60  T0  210 

200  V»AIT!IE)*AI!IE) 

210  IF!D-V)230#  220* 220 
220  PRINT  707 
230  S*D/V*S0UT 

PRINT  708#  S0UT# S 
IF!S“S0!IPH))240#240#250 
240  SO  ! I PH  ) * S 

S1NP!IPH)*SINP!IPH)4S/S0UT 
250  PRINT  709 
CALL  N0YES 
IF! NY >255#  255# 252 
252  PRINT  713 
60  T0  70 

255  PRINT  710#  !NAME!IPH»  J>»  J«l»3> 

CALL  NOYES 
I FC NY) 260#  260#  258 
258  CALL  6ENLSR 
260  PRINT  71 1 
CALL  N0YES 
IFCNY)270#  270#  20 
270  PRINT  712 
CALL  N0YES 
IF(NY)  10#  10#  280 
280  CHAIN  "XLSR2*** 

700  F0RMAT < 33H  ANY  LSR  0UTPUT  CONSTRAINTS  !Y#N>) 

701  F0RMATC 1 7H  WHICH  PHASE  !XX>> 

703  FORMAT!  41H  SELECT  APR0PI  ATE  FIELD  AND  ELEMENT  !X#X)/12H  1 A 

AIRCRA 

AFT/22H  2 FLIGHT  INSTRUCT0RS/2OH  3 ENLISTED  SUPP0RT/24H  4 A 
ACADEMIC  INSTRUCTORS) 

705  F0RMATO6H  ENTER  CONSTRAINING  VALUE  (XXXX.XXX)) 

707  F0RMAT<  26H  VALUE  IS  NOT  CONST  RAINING) 

708  FORMAT! 19H  OLD  STUDENT  OUTPUT# F6.0/ 19H  CONSTRAINED  OUTPUT#  F6. 
AO) 

709  FORMAT! 29H  ADDITIONAL  CONSTRAINTS  <Y#N)> 

710  FORMAT! 2 IH  NEW  LSR  SUMMARY  FOR  # 3A4#  6H  ! Y#N > > 

711  FORMAT! 32H  ANOTHER  PHASE  CONSTRAINED  ! Y#N>  > 

712  FORMAT!**  REVISE  LSR  TO  INCLUDE  CONSTRAINTS  !Y#N)'*) 

713  FORMAT!  42H  SELECT  APPROPI  ATE  FIELD  AND  ELEMENT  !X#X)> 

714  FORMAT!**  PHASE  CONTAINS  Nfl  ACTIVITY**) 

END 
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3123 
3 M3 
3163 
3183 
3203 
3223 
3243 
3263 
3283 
3303 
3323 
3343 
3363 
3383 
3403 
3423 
3443 
3463 
348  3 
3503 
3523 


TABLE  14  (Cont) 
c . Subroutine  NOYES 


SUBROUTINE  N0YES 
COMMON  SWITCHCll) 

COMMON  NAMEf  25, 3) , NPLA( 25* 3) , NFUELt 25#  3 ) , NACDt 25# 3) , ATPC 25) , 
AWK  (25),  T0D(  2 5)  , NAC<  2 5)  , NAD<  25),WX(25,  3),  GAS(  25,  3>,AU<25,  3), 
AFU(25«3),  SFH(  25,  3>,FIH<25,  3)  # FTR<  25,  3>,  FSOC  25*  3)  , AM0<  25#  3)  , 
AASH(  25,  3),AIH(25,3),AITR(25,  3) 

COMMON  I COMMA#  I BLANK, NO, N YES, NY, N PH,  IER»LEVLSR,  I PH,  WPY, 
AAFD,KILL,  1 1 D,  FI  D, KILLS<  25)  , SINP< 25), S0< 25) 

COMMON  IACT(3>, IAFT(3>, I AIN<  3),  BF(  3>,  FI  T(3>,  FI (3), 

AFLSOt  3>,EM(3),AIT(3),  ACNO( 3),AI(3> 

10  1 = 1 

INPUT  700, NY 
I F( NO -NY) 30#  20, 30 
20  NY»-1*I 
RETURN 
30  I=-l 

IF(NYES-NY) 40, 20, 40 
40  PRINT,  " INVALID  REPLY  - REPEAT" 

60  TO  10 
700  F0RMAT< A! ) 

END 
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TABLE  14  (Gont) 
d.  Subroutine  GENLSR 


3543 

3563 

3583 

3603 

3623 

3643 

3663 

3683 

3703 

3723 

3743 

3763 

3783 

3803 

3823 

38  43 
3863 
3883 
3903 
3923 

39  43 
39  63 
3983 
4003 
4023 
4043 
4063 
4083 
4103 
4123 
41  43 
4163 
4183 
4203 
4223 
4243 
4263 
4283 
4303 
4323 
4343 
4363 
4383 
4403 
4423 


SUBROUTINE  GENLSR 
COMMON  SWI TCH ( 1 1 > 

COMMON  NAME(25,3),NPLA(25,  3>,NFUEL<25,  3)  , NACD(  25#  3)  , ATP<  25)  , 
£WK(25),T0D(25),NAC(25>,NAD(25),WX(25,  3)  * GAS<  25,  3>  , AU<  25#  3), 
AFU(25,  3>,SFH(25,  3),FIH(25,  3)  , FTR<  25#  3)  * FSO<  25.  3)  , AM0(  25#  3>, 
AASH(25,  3),AIH(25,  3),AITR<25,  3) 

COMMON  I COMMA,  I BLANK,N0, NY ES, NY, NPH,  I ER, LEU- SR/  I PH,  WPY, 

AAFD, KILL,  IID,  FID,  KILLS(25),SINP(25),S0(25> 

COMMON  IACT(3>,IAFT(3>,IAIN(3>,BF<3>,FIT(3>,FI(3>, 

4FL  SO  < 3 ) , EMC  3),AIT<3),  ACN0(  3),AI(3) 

DIMENSION  U(3> 

EMT»0.0 
IC*I ID 
DO  10  Is  1,3 
IACTCI  >■  I BLANK 
IAFTd >»I BLANK 
I AIN( I ) »I BLANK 
BFd>*0.0 
FI TC I > =0»  0 

ficd-o.o 

FLSOCD-O.O 
EM  (I ) s 0 . 0 
AIT(I)«0.0 
ACNO ( I > * 0 • 0 

Ud)»AUdPH, I ) *WX < I PH, I ) *AFD 
10  AI  ( 1 )*0.  0 
S0UT» S0(I  PH) 

SI»SINPCIPH> 

SL«(SI*ATPdPH>*SOUT*<  1 . 0-ATP(I  PH)  ) >*WKd  PH)  / WPY 
N*NAC< I PH) 

IF(N)95,  95,  20 
20  DO  30  I* 1 *N 

IACTC I )»NPLA( IPH, I ) 

ACNO  d ) ■ < SO  UT*  SFH<  I PH,  I > > / < AU<  I PH, I >*  WX (I  PH, I > * AFD> 

I FCFSO (IPH, I >>28,28,24 
24  FLSOC  I >*SL/FS0C  I PH,  I > 

28  IAFTd  >*NFUELC  IPH,  I > 

BFd  > *SOUT*GAS(  I PH,  I >*  SFH<  I PH,  I > 

Fid  >“  < S0UT*FIH(  I PH,  I))/(FU(I  PH,  I >*WX(IPH,  I >*AFD> 

EMd  >»ACN0(I  >*AM0dPH,  I) 

EMT«EMT+EMd  > 

30  FIT(I>«FId>*FTRdPH,  I>/T0D(IPH> 

FACT- 1.2 

IFCEMT-200*  > 70, 50,  40 
40  IF(EMT-400.  > 50,  60,  60 
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TABLE  14  (Cont) 
d.  Subroutine  GENLSR  (Gont) 


4443  50  FACT= I • 15 

4463  G0  T0  70 

4483  60  FACT- 1.10 

4503  70  00  80  1*1, N 

4523  80  EMC I ) = EMC I )*FACT 

4543  EMT-FACT4EMT 

4563  95  M=NADCI?H) 

4583  I F C M) 120# 120* 100 

4603  100  D0  110  1= l>H 

4623  I AI N ( I ) -NACDC I PH, I ) 

4643  AI C I )*S0UT*ASHC I PH,  I )/AIHC I PH,  I ) 

4663  110  AIT(I)=AICI)*AITR<I PH, I)/T0D(IPH) 

4683  120  T0FF=O.O 

4703  D0  140  1*1,3 

4723  140  T0FF=T0FF*AICI)-*-AITCI)*FICI)*FITCI)  + FLS0CI) 

4743  TSP=T0FF+EMT+SL 

4763  IF< TSP-560.0) 1 42, 1 42, 1 44 

4783  142  AM=0. 030357 1*TSP 

4803  G0  T0  148 

4823  144  IFCTSP-1260.0)  146,  146,  147 

4843  146  AM  = 7,4  ♦ 0.0171 4284TSP 

4863  G0  T0  148 

4883  147  AM* 1 7 .8833  ♦ 0. 0088235*TSP 

4903  148  T0FF=  T0FF  +AM 

4923  IFCNY)  150,  150,  180 

4943  150  PRINT  700, C NAME< I PH, J ) , J= 1 , 3) , SL, I ACTC 1 ) , ACN0C 1 ) , I AFTC 1) , BFC 1 

4963  4) , T0FF, EMT 

4983  IC= I C+  5 

5003  WRI TEC "L  SR0UT", 719)1 C, CN AM ECIPH,J),J=1*3)»N 

5023  IC=IC+5 

5043  WRI TEC "L SR0UT", 720) I C, SI , S0UT, SL, T0FF, EMT 

5063  I C= I C>  5 

5083  WRI  TE(,,LSR0UT"»  7 22  )IC, I ACT, I AFT 

5103  IC-IC+5 

5123  WRI TEC”LSR0UTM, 723) I C, ACN0 

5143  IC-IC+5 

5163  WRI TEC "LSR0UT”, 723) I C, BF 

5183  IC=IC«-5 

5203  WRITEC”LSR0UT",  723)  I C,  CASH  Cl  PH,  J),  J=l,3) 

5223  IC-IC+5 

5243  WRI TEC "LSR0UT", 723) IC, U 

5263  IIO-IC 

5283  I FC  N- 1 ) 220, 220,  160 

5303  160  D0  170  1*2, N 

5323  170  PRINT  70 1 , I ACTC  I ) , ACN0 C I ) , I AFTC I ) , BFC I ) 

5343  G0  T0  220 


no 


I 


5363 
5383 
5403 
5423 
5443 
5463 
5483 
5503 
5523 
5543 
5563 
5583 
5603 
5623 
5643 
5663 
5683 
5703 
5723 
5743 
5763 
5783 
5803 
5823 
5843 
5863 
5883 
5903 
5923 
59  43 
5963 
5983 
6003 
6023 
6043 
6063 
6083 
6103 
6123 
6143 
6163 
6183 
6203 
6223 
6243 
6263 
6283 


TABLE  14  (Cont) 
d.  Subroutine  GENLSR  (Cont) 


180 


190 


200 

210 


220 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 
71s* 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 


PRINT  702 

PRINT  703#  ! NAME!  I PH*  J)#J=1*3> 

PRINT  704#  SI 

PRINT  705#  S0  UT 

PRINT  706#  SL 

PRINT  707#  AM 

PRINT  708#  TOFF 

PRINT  709.EMT 

I F!N  ) 200#  200*  190 

PRINT  7 1 0*  C I AC  TCI>#I=1*N) 

PRINT  7 1 1 # C ACN0 (I)#I*1#N) 

PRINT  7 1 2#  C I AFTC I)* 1 * 1 # N > 

PRINT  7 1 3# ( BF !I)#I=1#N) 

PRINT  714#CFICI>#I=1*N> 

PRINT  715#!FIT!I)*I=1#N> 

PRINT  721* (FLS0( I)* I* 1»N) 

PRINT  716* CEM< I) > Is 1*N) 

IF!M>220# 220*210 

PRINT  717#!IAIN!I)#I*1#M) 

PRINT  718#<AI(I)#Isl*M) 

PRINT  715*<AITCI)*I=1#M) 

RETURN 

F0RMAT<  IX#  3A4#  F12. 0#  4X*  A4#  F6.  0*  3X*  A4#  E 1 0.  3*  F6.  0#  F7 . 0) 
F0 RMAT,(  29X#  A4#  F6  • 0*  3X#  A4#E10.  3) 

FORMAT!//) 

F0RMATC15H  NAME  0F  PHASE  # 3A4) 

FORMAT! 1 4H  STUDENT  INPUT# F6.0) 

FORMAT!  1 5H  STUDENT  OUTPUT#  F6.0) 

F0RMAT(21H  AVERAGE  STUDENT  L0AD#F6.O> 

F0RMAT<24H  ADMINISTRATIVE  0FFI CERS# F6. 0) 

FORMAT! 15H  T0TAL  OFFICERS# F6.0) 

FORMAT C 1 5H  TOTAL  ENLI STED* F6. 0) 

F0RMAT!15H  AIRCRAFT  TYPES*  7X#  3!  1 X#  A4#  4X  > > 

F0RMATC  1 6H  NUMBER  REQUI  RED#  F 1 1 . 0#  2F9 . 0) 

F0RMATC  1 1H  FUEL  TYPES*  1 2X#  A4#  4X*  A4*  5X*  A4) 

FORMAT C 1 7H  GALLONS  CONSUMED# 3X» 3E9 . 3) 

FORMAT! 1 9H  FLIGHT  INSTRUCTORS# F8 . 0# 2F9 . 0) 

FORMAT! 1 5H  UNDER  TRAINING* F 1 2. 0# 2F9 . 0) 

FORMAT! 17H  ENLISTED  SUPPORT# F 1 0. 0# 2F9 . 0) 

FORMAT! 23H  ACADEMIC  INSTRUCTION  # A4*  2!  5X#  A4>  ) 
F0RMAT!21H  ACADEMIC  INSTRUCTORS* F6. 0# 2F9 . 0) 

FORMAT!  I 4*  IX#  3A4#  I 3) 

FORMAT!  I 4#  IX*  5E13.6) 

FORMAT! 17H  LSO  REQUI REMENTS# F 1 0. 0# 2F9 . 0) 

FORMAT! I 4# IX#  6A4) 

FORMAT! I 4# IX*  3EI3. 6> 

END 
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VI.  PROGRAM  LSR4 


PROGRAM  DESCRIPTK  ’• 

5,1  ; ...  ; r;  * i to  develop  the  necessary  program 

linkagt  tort  • t it)  • >\  requirements,  print  the  runway  require- 
ment ;■  i ' : }*•■••'  t • ’ ' file,  A A i . I pon  e ntry , all  varia b les 

ire  iintiah/e  : r t * a r tr.e  common  irea  which  was  utilized 

: > tine  INPRWY  is  then  sequentially  called 
to  enter  tne  n.  • ' «•  ic-.  a-  in  ,•  pr  i.se  containing  flight  instruction. 

]' r . : •>  * r it  * : t i ins  no  flight  instruction. 

1 , , , , r nw ay  lata . Por  example , phase 

names  mi  unr  ••  ••  : with  the  phase  data  base  and  runway 

j, ,ta  bas.  . • t • . 'test , in  error  message  is  displayed 

and  the  run  is  ten-  in  it-  .. 

. . ••  . • pute  the  runway  n juirements.  These 

irement  iat  t re  I in  the  computer's  memor,  ilso  written  on  the 

runway  require-  • , UNWAY.  The  process  continues  until  the  run- 

way requirements  for  all  training  phases  have  been  computed.  Next,  the  runway 
requirements  data  file,  RUNWAY,  is  closed,  and  phase  runway  requirements 
printed.  Control  is  then  passed  to  PROGRAM  PART2. 

SUBROUTINE  INPRWY 

6.4  The  purpose  of  Subroutine  INPRWY  is  to  read  from  the  runway  data  file 
(RIJNDAT)  the  phase  runway  data.  Upon  entry,  all  the  runway  data  associated 
with  a particular  training  phase  are  read  into  the  computer's  memory.  Control 
then  returns  to  PROGRAM  LSR4  . 


PFScedug  pA3£ 


\ 3Uw^N0 T FTUtty 


SUBROUTINE  GENRWY 


6.5  Subroutine  GENRWY  generates  training  phase  requirements  for  runways, 
OLFs,  and  air-to-ground  target  areas.  Upon  entry,  monthly  daylight  hours, 

DM,  are  reduced  by  sortie  length,  SL,  adjusted  by  monthly  weather  , WX,  and 
runway  downtime,  DT,  and  averaged.  The  time  factor,  TIME,  is  the  average 
hours  per  day  that  the  runways  may  be  utilized  for  pilot  training. 

6.6  Next  the  maximum  number  of  daily  sorties,  SMAX,  which  can  be  launched 
and  recovered,  is  computed  as  well  as  the  required  number  of  daily  sorties,  RS . 
Runway  requirements  are  then  developed  by  the  ratio  of  required  sorties  to  maxi- 
mum sorties . 

6.7  A similar  process  is  used  to  compute  OLE  and  air-to-ground  target  areas. 
Control  then  returns  to  PROGRAM  LSR4  . 

6.  A flow  chart  of  LSR4  is  shown  in  Tigure  6.  Table  15  contains  the  variable 
dictionary  of  PROGRAM  LSR4;  the  program  and  subroutine  dictionary  is  provided 
in  Table  16.  The  program  listing  is  shown  in  Table  17. 


b.  Subroutine  GENRWY 


FIGURE  6 . (Cont) 
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TABLE  15 


PROGRAM  LSR4  VARIABLE  DICTIONARY 


Location 

Variable 

Name 

Dimension 

Type 

Description 

Common 

SWITCH 

11 

F 

Permanent  storage  used  by 
other  IFRS  computer  programs 

Common 

NAME 

25,3 

A 

Name  of  1^*  training  phase 

Common 

NPLA 

25,3 

A 

Name  of  jth**  type  aircraft 
used  in  phase  I 

Common 

IOPR 

25,3 

I 

Runway  operating  procedure 
for  J type  aircraft  in  phase  I 

Common 

SAS 

25,3 

F 

Air  space  saturation  factor 
for  jth  aircraft  in  phase  I 

Common 

OLF 

25,3 

F 

OLF  requirements  for  air- 
craft type  J in  phase  I 

Common 

NAC 

25 

I 

Number  of  aircraft  types  in 
phase  I 

Common 

RUNP 

2 5,3 

F 

Number  of  effective  runways 
required  for  aircraft  type  J 
in  phase  I 

Common 

TARG 

25,3 

F 

Air-to-ground  target  areas 
required  for  aircraft  type  J 
in  phase  I 

Common 

WX 

3,12 

F 

Monthly  weather  for  aircraft 
type  I 

Common 

DH 

12 

F 

Monthly  daylight  hours 

Common 

SP1 

25 

F 

Used  to  space  common  (not 
used  in  program) 

Common 

SP2 

25,27 

F 

Used  to  space  common  (not 
used  in  program) 

Common 

ICOMMA 

1 

A 

Comma  " , " 

Common 

1 BLANK 

1 

A 

Space  " " 

* I refers 

to  the  column 

index . 

**  J refers  to  the  row  index. 
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TABLE  15  (Cont) 


Location 

Variable 

Name 

Dimension 

Type 

Description 

Common 

NO 

1 

A 

No,  "N  " 

Common 

NYES 

1 

A 

Yes,"Y" 

Common 

NY 

1 

I 

No-Yes  Switch 
NY  = -1  for  No  response 
= 1 for  Yes  response 

Common 

NPH 

1 

I 

Number  of  training  phases 

Common 

IER 

1 

I 

Error  type  switch 

Common 

LEVSLR 

1 

I 

Level  of  complexity  for  LSR 
Generator 

Common 

IPH 

1 

I 

Particular  training  phase 

Common 

WPY 

1 

F 

Training  weeks  per  year 

Common 

AFD 

1 

F 

Annual  number  of  flight 
training  days 

Common 

KILL 

1 

I 

Number  of  phases  deleted 
in  PROGRAM  I.SR1 

Common 

IID 

1 

I 

Integer  switch 

Common 

riD 

1 

I 

Floating  point  switch 

Common 

KILLS 

25 

I 

Deleted  training  phases 

Common 

SI 

25 

F 

Student  input  for  training 
phase  I 

Common 

SO 

25 

F 

Student  output  for  training 
phase  I 

Common 

NAMEP 

3 

A 

Name  of  training  phase  in 
Runway  Data  File 

Common 

IAFT 

3 

A 

Name  of  aircraft  type  I in 
Runway  Data  File 

Common 

SPS 

3 

F 

Number  of  sorties  per  student 
for  aircraft  type  I 

Common 

SL 

3 

F 

Sortie  length  in  aircraft  type  I 

Common 

TT 

3 

F 

Time  required  to  launch  an 
I-type  aircraft 
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TABLE  15  (Cont) 


Location 

Varia  blc 
Name 

Dimension 

Type 

Description 

Common 

TL 

3 

F 

Time  required  to  recover  an 
I-type  aircraft 

Common 

AS 

3 

F 

Number  of  I-type  aircraft 
which  will  saturate  the  airspace 

Common 

ATAG 

3 

F 

Number  of  touch-and-go  land- 
ings each  student  must  perform 
on  an  I-type  aircraft 

Common 

PM  R 

3 

F 

Percent  of  the  touch-and-go 
landings  in  an  I-type  aircraft 
conducted  on  the  main  runway 

Common 

TAR 

3 

F 

Required  number  of  passes 
over  a target  area  by  a student 
in  an  I-type  aircraft 

Common 

TOT 

3 

F 

Average  time  spent  over  a tar- 
get area  in  an  I-type  aircraft 

Common 

DT 

1 

F 

Percent  of  time  a runway  may 
not  be  used 

Common 

NACC 

1 

F 

Number  of  aircraft 

Common 

DTO 

1 

F 

Percent  of  time  an  OLF  may 
not  be  used 

LSR4 

IL 

1 

I 

Line  counter 

GENRWY 

TIME 

1 

F 

Average  number  of  hours  per 
day  a runway  may  be  utilized 

GENRWY 

TLC 

1 

F 

Launch-recovery  cycle 

GENRWY 

SMLC 

1 

r 

Maximum  number  of  daily 
sorties  using  a launch- 
recovery  cycle 

GENRWY 

CYC 

1 

F 

Maximum  of  launch  and  re- 
covery time 

GENRWY 



SMTL 

1 

F 

Maximum  number  of  daily 
sorties  using  a batch  launch 
and  recovery  cycle 

f 


TABU:  15  (Gont) 


Location 

Variable 

Name 

Dimension 

GENRWY 

SMAX 

1 

GENRWY 

AIR 

1 

GENRWY 

ET 

1 

GENRWY 

TGC 

1 

GENRWY 

TGR 

1 

GENRWY 

OFR 

1 

GENRWY 

RS 

1 

GENRWY 

GUN 

1 

GENRWY 

TART 

1 

Description 


Maximum  of  SMLC  and  SMTL. 

Maximum  number  of  aircraft 
airborne  at  one  time 

Time  a main  runway  is  used 
for  touch-and-go  landings 

Daily  capacity  of  OLF  for 
touch-and-go  landings 

Daily  touch-and-go  require- 
ments 

Number  of  the  daily  touch-  tnd- 
to  landings  to  be  conducted  on 
an  OLF 

Required  number  of  daily 
sorties  to  be  conducted 

Daily  number  of  uir-to-  ji  >und 
target  approaches 

Air-to-ground  target  area 
capacity 


2 


TABLE  16 

PROGRAM  LSR 4 PROGRAM  AND  SUBROUTINE  DICTIONARY 


LSR  4 

Develops  the  program  linkage  for  the  computation 
of  runway  requirements.  Prints  runway  require- 
ments and  develops  the  runway  output  file. 

INPRWY 

Reads  the  runway  data  file. 

GENRWY 

Generates  the  runway  requirements  . 
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TABLE  17 

PROGRAM  LSR4  LISTING 


I 04 

C0MM0N  SWITCHC 1 1) 

124 

C0MM0N  NAME<25*3)*NPLAC25*  3)#  I0PR<2  5,  3)*  SAS<25* 

3) * 0L  F<  25* 3)* 

1 44 

ANAC<25)*RUNP(25*3)*TARG(25*3)*WX(3*  12),DH<  12>* 

1 64 

ASP1 (52)*  SP2(  2 5* 27) 

184 

C0MM0N  IC0MMA*  1 BLANK , N0, NYES*  NY*  NPH*  IER*LEVLSR* 

I PH*  WPY * 

204 

AAFD*K ILL* 1 1 D* FI D* KI LL SC  25) * SI ( 25) * S0 ( 25) 

224 

C0MM0N  NAMEP(3)*IAFT(3), SPS(  3 ) * SL  < 3 ) * T1  C 3 ) * TL  ( 

3)* 

244 

AASC3)*ATAG(3)*TAGT(3)*PMR(3)*  TARC  3)*  T0T( 3 ) * DT* NACC 

264 

A*  OT0 

28  4 

0PENFILE  "RUNDAT" 

304 

0PENFILE  "RUNWAY" 

32  4 

REWIND  "RUNDAT" 

344 

REWIND  "RUNWAY" 

364 

WRI TE< "RUNWAY"* 707)NPH 

38  4 

IL= 1005 

404 

D0  10  I » 1 * NPH 

424 

D0  10  J=l*3 

444 

I 0PR( I * J)  = 0 

464 

SAS ( I * J ) * 0*  0 

484 

0LFC I » J ) » 0. 0 

504 

RUNP< I* J)*0.0 

524 

10  TARG< I* J>»0.0 

544 

D0  115  I«1*NPH 

564 

I PH=  I 

58  4 

I F<  NACC I ) ) 100* 1 00*20 

604 

20  CALL  INPRWY 

624 

D0  40  J>l>3 

644 

IFCNAMEPf J)-NAME( I. J) ) 30* 40, 30 

664 

30  PRINT  7 00*  NAMEP* (NAME(I*K)*K»1*3) 

68  4 

ST0P 

704 

40  C0NTINUE 

724 

I F(NAC( I > -NACC) 50*  60*  50 

744 

50  PRINT  70 1 * NACC*  NACC I ) * NAMEP 

764 

ST0P 

78  4 

60  CONTINUE 

804 

D0  80  J»1*NACC 

824 

IF< IAFT(J)-NPLA( I* J))70*80*  70 

844 

70  PRINT  702*NAMEP* I AFT< J)*NPLAC I* J) 

864 

STOP 
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TABU!  17  (Cont) 


884 
904 
924 
944 
964 
984 
1 004 
1 024 
1044 
1064 
108  4 
1 104 
1 124 
I 1 44 
1 1 64 
1184 
1204 
1224 
1 244 
1264 
128  4 
1 304 
1324 
1344 
1 364 
1 38  4 
1 404 
1 424 
1 444 
1 464 
1 48  4 
1 504 
1 52  4 
1 544 
1 564 
1 58  4 
1 604 
1 62  4 


80  CALL  GENRWY 

100  WRI  TE?  "RUNWAY",  708  ML,  NPL  A?  I,  1) 

I L= I L+  5 

WR1  TE<  "RUNWAY'S  709  ML,  ? RUNP<  I.J)»J=b3) 

IL=IL*5 

WRI  TE<  "RUNWAY'S  709)  I L,  C SAS(  I,J),J=1,3> 

IL  = IL+  5 

WRI TE( "RUNWAY’S  7 09  >IL, ? 0L  F? I , J ) » J = I , 3) 

1 1 5 IL= IL+  5 
PRINT  703 
D0  200  I=I»N PH 
IE<NAC( I ) .LE.O)G0  T0  200 

PRINT  7 04,  ( N AM  E ? I , J ) , J = 1 , 3 > , N PL  A ? I , 1>,RUNP?I,  1),SAS?I,  1), 

* 0L  F ? I , 1 ) , TARG( I , 1) 

IF?NAC? I >-1)200,200,  1 10 
1 10  K=NAC? I ) 

D0  120  J = 2,  K 

120  PRINT  705,NPLA( I,J), RUN PC  I ,J), SAS( I , J ) , 0LF? I , J ) , TARGC I , J) 
PRINT  706 
200  C0NTINUE 

CL0SEFILE  "RUNWAY" 

CL0SEFILE  "RUNDAT" 

CHAIN  "PART2*" 

700  FORMAT?"  RUNWAY  PHASE  NAME  ", 3A4, " D0ES  N0T  MATCH  PHAS 
AE  NAME  "3A4, " REVISE  AND  RE-RUN") 

701  FORMAT ? " RUNWAY  AIRCRAFT  TYPES  0F", 13, " DOES  NOT  MATCH"/ 

A"  PHASE  TYPES  OF",  1 3,"  FOR  PHASE  ",  3A4/"  REVISE  AND  RE-RUN") 

702  FORMAT ? " FOR  PHASE  ", 3A4, " AIRCRAFT  NAMES  DO  NOT  MATCH 
APHASE  AIRCRAFT  NAMES  ", A4, 1H, , A4/"  REVISE  AND  RE-RUN") 

703  F0RMATC//18X, "A/C  EFFECTIVE  AIRSPACE  TARGET"/ 

A"  TRAINING  PHASE  TYPE  RUNWAYS  SATURATION  OLF  AREAS") 

704  FORMAT C 1 X,  3A4,  4X,  A 4,  F8 . 3,  F 11 . 3,  F8  • 3,  F8 . 3 ) 

705  FORMAT? 1 7X, F8. 3, FI  1 . 3, 2F8. 3) 

706  FORMAT? IX) 

707  FORMAT ? 5H 1 000  , 13) 

708  FORMAT?  I 4,  IX,  A4,  " B"> 

709  FORMAT? I 4,  IX, 3E1 3. 6) 

END 
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TABLE  17  (Cont) 
a.  Subroutine  INPRWY 


1644 

SUBROUTINE  INPRWY 

1 664 

COMMON  SWITCHCU) 

1 68  4 

COMMON  NAMEC  25#  3)*NPLAC25*  3)*  I0PRC25*  3>*  SASC25* 

3)  * OLF C 25*  3)* 

1704 

ANACC25)*RUNPC25*3)*  TARGC  25*3)*WXC3*  12)*DHC  12), 

1724 

ASPIC  52)*SP2C2  5*27) 

1744 

COMMON  ICOMMA*  I BLANK* N0* NYES* NY* NPH*  IER.LEVLSR* 

I PH* 

WPY  * 

1764 

AAFD*  K ILL* IID.FID.KILLSC25)*  SI C 25)  * SO (25) 

1784 

COMMON  NAMEPC 3)*IAFTC3)*SPSC 3)*  SLC3)*  TTC3), TLC 

3)* 

1804 

AASC3)* ATAGC3)*  TAGTC 3)* PMRC 3) * TAR C 3 ) * T0TC 3 ) * DT.NACC 

1824 

A*  DTO 

1844 

FILENAME  RUN 

1864 

RUN  = "RUNDAT" 

1884 

READC  RUN# 700)L*NACC*  NAMEP* I AFT 

1904 

IFCNACC)  10.  10*20 

1924 

10  PRINT  701 

1944 

STOP 

1964 

20  READC RUN*  702 )L* ( DH  C J ) * J= 1*  6) 

1984 

READC  RUN*  702)L*  C DH(J)*J=7*  12) 

2004 

READC RUN*  702)L* DT*  DTO 

2024 

DO  30  I=1*NACC 

2044 

READCRUN*  702)L»  C WXC  I * J ) * J= 1 , 6) 

2064 

30  READCRUN. 702 )L* C WX C I * J ) , J= 7,  12) 

208  4 

READC  RUN,702)L*SPS 

2104 

READCRUN, 702)L*SL 

2124 

READC  RUN*702)L* TT 

2144 

READCRUN*  702)L*  TL 

2164 

READC  RUN*  702)L*  AS 

2184 

READCRUN*  702)L*  ATAG 

2204 

READCRUN*  7 02)L*  TAGT 

2224 

READCRUN*  7 02)L*  PMR 

2244 

READC RUN* 702)L* TAR 

2264 

READCRUN*  702)L*  TOT 

2284 

40  RETURN 

2304 

700  FORMATC  21 4*  6A4) 

2324 

701  FORMAT C ” RUNWAY  DATA  FILE  IS  INCOMPLETE  -UPDATE 

AND 

RE-RUN”) 

2344 

702  FORMAT C V) 

2364 

END 
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TABLE  17  (Cont) 
b.  Subroutine  GENRWY 


23R4  SUBROUTINE  GENRWY 

2404  COMMON  SWITCHC11) 

2 42  4 COMMON  N AMEC  2 5,  3 ) , NPL  AC  2 5,  3 > , I OPRC  25,  3 ) , SASC  2 5,  3)  , 0L  FC  2 5,  3 ) , 

2 44  4 ANACC25),RUNPC25,  3>,TARGC25,  3),  WXC3,  12>,DHC  12), 

2464  ASPIC  52),  SP2C 25#  27) 

2484  COMMON  I COMMA#  I BLANK  / NO#  NY  ES,NY,NPH,  IER,LEVLSR,  I PH*  WPY, 

2504  AAFD,  K I LL , 1 1 D, F I D, K I LL SC  2 5) , SI C 2 5 ) , SO ( 2 5 ) 

2524  COMMON  N AMEPC 3 ) * I AF T( 3 ) , SPSC 3 ) > SL C 3 ) , TT( 3 ) , 1L  C 3 ) , 

25  44  A A S C 3 ) , A T A G C 3 ) , T A G T C 3)* PMRC 3) , TARC 3 ) , T0T( 3 ) * DT, NACC 

2564  A,DT0 

2584  DO  300  I=1,NACC 

2604  TIME=0.0 

2624  DO  10  J=l,  12 

2644  10  TIME=TIME+C  DHCJ)-SL( I > > + WX  C I , J ) 

2664  TIME=TIME*C 1 .0-DT)/12.0 

2684  TLC=TTCI)  + TLCI) 

2704  SMLC  = TI ME/ TL  C 

2724  CYC=  TTC I ) 

2744  IFCCYC-TLC 1 ) >20,20,30 

2764  20  CYC=TLC I ) 

2784  30  C=TIME/C2.0*SLC I >> 

2804  J=C 

2824  C=J 

2844  SMTL=C*SLC I >/CYC 

2864  R= TIME-2. C*C*SLC I ) 

2884  E=SL(I)/CYC 

2904  IFCR-SLC I ) ) 40, 50. 50 

2924  40  E=  R/C YC 

2944  50  SM TL=  SM  TL+  E 

2964  I FC  SMLC-  SMTL>60,60,70 

2984  60  SMAX  = SMTL 

3004  IOPRC I PH, I ) = 2 

3024  AI R=SLC I )/CYC 

3044  GO  TO  80 

3064  70  SMAX=SMLC 

3084  IOPRC IPH, I )= 1 

3104  AIR=SLC  I )/TLC 
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TABLE  17  (Cont) 


3124 
31  44 
3164 
3184 
3204 
3224 
3244 
3264 
328  4 
3304 
3324 
3344 
3364 
3384 
3404 
3424 
3444 
3464 
348  4 
3504 
3524 
3544 
3564 
358  4 
3604 
3624 
3644 
3664 
3684 
3704 
3724 
3744 


b.  Subroutine  GENRWY  (Cont) 


80  ET=0. 

IFCAIR.GT. ASC I > > G0  T0  200 
85  SASC I PH* I )=AIR/ASC I ) 

I F( ATAGC I ) ) 1 00* 1 00*90 
90  TGC=TIME*C 1 .-DT01/TAGTC I ) 

TGR=S0( I PH ) *ATAGC I ) / AFD 
0 FR= ( 1 . 0- PMRC I ) ) * TGR 
0LF( I PH* I)  = 0FR/TGC 
ET=CTGR-0FR>*C 1 . 0- DT0  > / TGC 
100  RS=S0C IPH)*SPSCI )/AFD 

RUNPC I PH* I ) = ET  + RS/SMAX 
IFC  TARC  I)  >29  0*29  0*  1 10 
110  GUN=S0CIPH>*TARCI>/AFD 
TART=(TIME-SLC I ) >/T0TC I ) 

TARGC I PH* I > = GUN/TART 
G0  T0  300 

200  IFCI0PRC IPH* I > .EQ.2)G0  T0  70 
C=T1ME/SL<  I ) 

J = C 
D=J 
C = C-D 
T-C/  TLC 

IFC T-ASC I) >220*220*210 
210  T=ASC I > 

220  SMAX  = D*ASC  I >*T 
AIR=ASC I ) 

I0PR( IPH* I ) = 3 
G0  T0  8 5 

29  0 SASC I PH* I ) ~ SASC I PH* I )* RUNPC  I PH* I ) 
300  C0NTINUE 
RETURN 
END 
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VII. 


PROGRAM  PART 2 


PROGRAM  DESCRIPTION 

7.1  PROGRAM  PART2  either  accepts  control  from  the  LSR  Generator  or  is  entered 
directly  from  the  time-sharing  terminal.  Its  purpose  is  to  read  several  files:  the 
Base  Data  File;  BASED*:  the  Aircraft  Data  File,  AC  DAT*;  and,  in  the  event 

that  control  is  being  transferred  back  to  PART2  after  it  has  been  run  previously, 
the  program  reads  one  or  both  of  the  temporary  data  files,  RETURN  and  RETURN1  . 

7.2  Since  PROGRAMS  LSRM  through  LSR4  have  a different  set  of  common 
variables  than  PROGRAMS  PART2  through  PARTY,  with  the  exception  of  the  first 
11  locations,  certain  variables  in  common  in  PART2  have  to  be  initialized.  This 
is  done  upon  entering  PART2  . The  array  ISWTCH  within  the  first  11  common 
locations  acts  as  the  sole  internal  link  among  PROGRAMS  LSRM  through  LSR4 
and  PROGRAMS  PART2  through  PARTY.  The  values  of  the  switches  in  ISWTCH 
convey  such  information  as  whether  the  run  is  currently  in  a multi-year  mode 
(ISWTCH (1 0)  = 1),  or  in  the  constrained  resource- LSR  mode  originating  from 
PART8  (ISWTCH(IO)  = 2).  ISWTCH(IO)  = 0 the  first  time  PROGRAM  PART 2 is 
entered.  If  this  occurs,  the  date  is  set  at  1970  and  ISWTCH(6);  the  year 
counter  is  set  to  1 . 

7.3  Both  the  Base  Data  File  (BASED*)  and  the  Aircraft  Data  File  (ACDAT*)  are 
then  read.  If  this  is  the  first  time  through,  control  transfers  to  PART3  . If  this 
is  a multi-year  run,  i.e.,  ISWTCH(IO)  / 0,  and  the  model  is  beyond  the  first 
year  computations,  i.e.,  ISWTCH(6)  / 1,  then  the  updated  asset  position 

and  phase  to  base  assignment  from  the  previous  year  (file  RETURN)  are  read. 

7.4  If, at  some  previous  point,  the  option  has  been  made  to  return  to  the 
LSR  Generator  from  one  of  the  cost  models  to  constrain  output,  i.e.  , ISWTCH 

(10)  = 2,  the  phase  to  base  assignment  (the  last  one  established  before  the  transfer 
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to  the  LSR  Generator)  is  read  from  file  RETURN1.  Following  this,  control  is 
transferred  to  PART3. 

7.5  A flow  chart  of  PROGRAM  PART2  is  shown  in  Figure  7.  Table  18  contains 
the  variable  dictionary  of  PROGRAM  PART2 ; the  program  and  subroutine  dictio- 
nary is  provided  in  Table  19.  The  program  listing  is  shown  in  Table  20. 
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TABLE  18 


PROGRAM  PART2  VARIABLE  DICTIONARY 


Location 

Variable 

Name 

Dimension 

Type 

Description 

C ommon 

IYEAR 

1 

I 

Date 

Common 

ACREQ 

9,21 

F 

Aircraft  required  of  type  J 
at  base  I* 

Common 

TBAS 

9 

F 

Total  base  personnel  at 
base  I 

Common 

TNAS 

9 

F 

Total  NAS  personnel  at 
base  I 

Common 

BPH 

9,25 

F 

Percent  of  phase  J at 
base  I 

Common 

ASH 

25,3 

F 

Academic  student  hours  in 
phase  I for  type  J instruction 

Common 

ACFH 

9,15 

F 

Annual  aircraft  flight  hours 
for  type  J aircraft  (training 
aircraft  only)  at  base  I 

Common 

Torr 

9 

F 

Total  officers  at  base  1 

Common 

TENL 

9 

F 

Total  enlisted  at  base  I 

Common 

PNASE 

9 

F 

Total  NAS  enlisted  at 
base  I 

Common 

SI 

25 

F 

Student  input  into  phase  I 

Common 

TCIV 

9 

F 

Total  civilians  at  base  I 

Common 

SO 

25 

F 

Student  output  from  phase  I 

Common 

FUREQ 

9,3 

F 

Fuel  type  J required  annually 
at  base  I 

Common 

PH  PER 

9,5 

F 

Personnel  at  base  I of  type 
J:  J = 1 for  phase  officers 
and  students,  I = 2 for  phase 
enlisted,  J = 3 for  NAS  offi- 
cers, J = 4 for  NAS  enlisted, 
J = 5 for  NAS  civilian 

Common 

NBUSE 

9 

I 

Base  usage  code: 

0 - not  used 

1 = used 

* i always  denotes  the  first  array  index,  J the  second,  K the  third. 
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TABT.r;  18  (Cont) 


Location 

Variable 

Name 

Dimension 

Type 

Description 

Common 

RW 

25,3,3 

F 

Presently  unused 

Common 

IACT 

25,3 

A 

Aircraft  type  required  for 
phase  I,  instruction  type  J 

Common 

AC.NOl 

25,3 

F 

Number  of  aircraft  required 
for  phase  I,  instruction 
type  J 

Common 

TOFF  1 

25 

F 

Total  officers  in  phase  I 

Common 

EMTI 

25 

F 

Total  enlisted  men  in 
phase  I 

Common 

IATYPE 

21 

A 

Aircraft  name  of  type  1 
aircraft 

Common 

ACA 

21 

F 

Aircraft  parking  apron 
variable  A for  type  I aircraft 

Common 

ACB 

21 

F 

Aircraft  parking  apron 
variable  B for  type  I aircraft 

Common 

ACC 

21 

F 

Aircraft  parking  apron 
variable  C for  type  I aircraft 

Common 

ACD 

21 

F 

Aircraft  parking  apron 
variable  D for  type  I air- 
craft 

Common 

AHM 

21 

F 

Number  of  aircraft  of  type 
I per  hangar  module 

Common 

ACM 

21 

F 

Number  of  aircraft  of  type 
I per  crew  and  equipment 
module 

Common 

ASMl 

21 

P 

1 

Number  of  aircraft  of  type 
I per  basic  shop  module 

Common 

ASM  2 

21 

F 

Number  of  aircraft  of  type 
I per  supplementary  shop 
module 

Common 

A 

21,3 

F 

Warehouse  space  type  I 
required  for  aircraft  type  I 

TABLE  18  (Cont) 


Location 

Variable 

Name 

Dimension 

Type 

Description 

Common 

RNWYL 

21 

F 

Runway  length  required  for 
type  I aircraft 

Common 

RLOAD 

21 

F 

Runway  load  factor  re- 
quired for  type  I aircraft 

Common 

COMP 

21 

F 

Runway  composition  factor 
required  for  type  I aircraft: 
1 = concrete,  2 = asphalt 

Common 

FLCST 

21 

F 

Flyaway  cost  for  type  T aircraft 

Common 

AOM 

21 

F 

Aircraft  operating  and  maintenance 
cost  per  flight  hour  for  type 
i aircraft 

Common 

CNAAC 

21 

F 

Aircraft  available  to  CNATRA, 
type  I 

Common 

NAS  NAM 

9 

A 

NAS  name,  base  I (first  4 
letters  of  name) 

Common 

AD 

9 

F 

Parking  apron  depth  at 
base  I 

Common 

PF 

9,3 

F 

Days  of  ready  fuel  storage 
required  at  base  I for  type 
J fuel 

Common 

EL 

9,3 

F 

Fuel  loss  factor  for  base  I, 
type  J fuel 

Common 

CU 

9 

F 

Annual  classroom  utilization, 
base  I 

Common 

I BED 

9 

1 

Dispensary  code  by  base: 

1 = with  beds,  0 = without 

Common 

PEE 

9 

F 

Percent  of  enlisted  eligible 
for  family  housing  at  base  I 

Common 

PRE 

9 

F 

Percent  of  eligible  enlisted 
requiring  family  housing  at 
base  I 

Common 

PO 

9 

F 

Percent  of  officers  requiring 
family  housing  at  base  I 

3 
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TABLE  18  (Cent) 


Location 

Variable 

Name 

Dimension 

Type 

Description 

Common 

PS 

9 

F 

Percent  of  students  re- 
quiring family  housing  at 
base  I 

Common 

PIE 

9 

F 

Percent  of  ineligible  en- 
listed requiring  family 
housing  at  base  I 

Common 

TS 

9 

F 

Annual  tenant  students  at 
base  I 

Common 

TH 

9 

F 

Annual  tenant  classroom 
utilization  at  base  I 

Common 

TNOFF 

9 

F 

Tenant  officers  at  base  I 

Common 

TNENL 

9 

F 

Tenant  enlisted  at  base  I 

Common 

TNCIV 

9 

F 

Tenant  civilians  at  base  I 

Common 

ATCF 

9 

F 

Altitude  temperature  cor- 
rection factor  for  runways 
at  base  I 

Common 

WR 

9,2 

F 

Wind  rose  data  for  base  I 
type  J runways:  1=1  for 
primary,  J = 2 tor  cross  wind 

Common 

TENAC 

9,6 

F 

Tenant  aircraft  type  J at 
base  I 

Common 

PERFAC 

9 

F 

Percent  of  total  base  per- 
sonnel at  base  I requiring 
administrative  office  space 

C ommon 

EMES 

9 

F 

Percent  of  enlisted  men 
barrack  capacity  utilizing 
mess  halls 

Common 

FAC  OS  T 

50,6 

F 

Cost  factor  f for  facility  I 

Common 

FAPW 

6 

F 

Maximum  floor  area  for 
public  works  shop  for  per- 
sonnel level  I 

Common 

AP 

4,3 

F 

Square  feet  of  type  J 
storage  required  for  base 
size  I 

TABU'.  18  (Cont) 


Location 

Common 

Common 

Common 

Common 

Common 

Common 

Common 

Common 

Common 

Common 

Common 


Variable 

Name 

Dimension 

Type 

Description 

GWTAB 

3 

F 

Maximum  number  of  base 
personnel  for  base  size  I 
(warehouse  computations) 

TAM  ESS 

7,2 

F 

FAMESS(I,1)  = max.  total 
mess  capacity  I;  FAMESS 
(1,2)  = sq  ft  per  person 
required  for  mess  capacity 

I 

EXCH 

10,2 

F 

EXCH(I,1)  = base  military 
strength  level  I for  ex- 
change calculations; 

EXCH (I,  2)  = floor  area  re- 
quired for  exchange  for 
base  strength  I 

FAEM 

8,2 

F 

FAEM  (1,1)  = cutoff  enlisted 
strength  level  I for  service 
club  calculations;  FAEM 
(1,2)  = floor  ai<  a required 
for  EM  service  club  for 
enlisted  level  I 

TANKS 

15 

F 

Tank  sizes  available  for 
ready  fuel  storage  low  to 
high 

TAXITO 

3 

F 

Taxiway  turnoffs  required 
for  runway  length  I 

ICODES 

50 

I 

Category  code  associated 
with  I**1  facility 

IDES 

50,3 

A 

Facility  description  (12 
characters)  for  facility  I 

RPI 

50,9,2 

F 

Facility  I inventory  at  base 
1 for  K type:  K = 1 for  stan- 
dard, K - 2 for  substandard 

I UNITS 

50 

A 

Unit  of  measure  for  facility 
I (2  characters) 

XRPI1 

9,  10,4 

F 

Available  runway  1 descrip- 
tion (4  items-indexed  K) 
at  base  I 

TABLE  18  (Cont) 


Location 

Variable 

Name 

Dimension 

Type 

Description 

Common 

XRPI2 

3,9 

F 

Ready  fuel  storage  type  I 
available  at  base  J 

Common 

BR 

50,9 

F 

Required  amount  of  facility 
I at  base  J 

Common 

XBR1 

9,10,4 

F 

Required  runway  J descrip- 
tion (4  items-indexed  K) 
at  base  I 

Common 

XBR2 

3,9 

F 

Ready  fuel  storage  type  I 
required  at  base  J 

Common 

DET 

50,9 

F 

Facility  I deficiency  at 
base  J 

Common 

XDET2 

9 

F 

Taxiway  deficiency  at 
base  J 

Common 

XDEF3 

2,9 

F 

1=1  for  runway  lighting 
deficit  (linear  feet)  at 
base  J;  I = 2 for  number  of 
approach  lighting  system 
deficient  at  base  J 

Common 

XDEF4 

3,15,9 

F 

Number  of  tanks  of  size  J 
(see  TANKS)  required  at 
base  K for  fuel  type  I 

Common 

TEX 

50,9 

F 

Total  excess  of  facility  I 
at  base  J 

Common 

NCAT 

1 

I 

Number  of  facilities  con- 
sidered 

Common 

IYES 

1 

A 

Character  "Y"  for  recog- 
nizing Yes  responses 

Common 

NO 

1 

A 

Character  "N"  for  recog- 
nizing No  responses 

Common 

ICOM 

1 

A 

Character  for  validating 

input  format 

Common 

GTOTAL 

1 

F 

Total  systems  cost 

Common 

NPH 

1 

I 

Number  of  phases  of  training 
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TABLE  18  (Cont) 


Location 

Variable 

Name 

Dimension 

Type 

Description 

C ommon 

ISWTCH 

10 

I 

ISWTCH (1)  to  ISWTCH (5) 
unused 

ISWTCH(G)  year  counter 
for  multi-year  runs 
ISWTCH(7)  = 1 for  restart  at 
PART6 

ISWTCH(8)  = 1 for  reallo- 
cation of  phases 
ISWTCH (9)  = level  of  print 
detail 

ISWTCH(IO)  = 1 for  multi- 
year return  to  I.SR 

= 2 for  con- 
strained LSR  option 

= 0 otherwise 

PART2 

LINE 

1 

I 

Dummy  variable 
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TABLE  19 

PROGRAM  PART2  PROGRAM  AND  SUBROUTINE  DICTIONARY 


PART2 


Reads  Base  Data  File,  Aircraft  Data  File,  and,  if  needed, 
Return  Files 


tabu:  20 


PROGRAM  PART2  I. (STING 


1002 
1 022 
1 042 
1 062 
1082 
1 102 
1 122 
1 1 42 
1 1 62 
1 182 
1202 
1222 
1242 
1262 
1 282 
1 302 
1 322 
13  42 
1 362 
1 382 
1 402 
1 422 
1 442 
1 462 
1 482 
1 502 
1 522 
1 542 
1 562 
1 582 
1 602 
1 622 
1 642 
1 662 
1 682 
1 702 
1 722 
17  42 

17  62 
1 782 
1802 
1822 

18  42 


COMMON  I YEAR, I SWTCHC 10) 

COMMON  ACREQC9,  2 1 ),  TBASC9), TNASC9) , BPH ( 9 , 25 ) » ASH ( 25* 3), 

A ACFH (9»  1 5), T0FFC9), TENLC9), TSTUC9),  PNASEC9), SI C25), TCI VC9), 
&S0(25),F  IJREQC  9»  3)>  PH  PER(  9 , 5)  , N BUSEC  9 ) , RWC  25,  3,  3), 

A I ACTC25,  3),  ACNO  1(25,  3 ) , TOFF  1 ( 25 ) , EMT1  (25) 

COMMON  I ATYPE(21 ),  AC AC  21 ), ACB<  21 ),  ACC(21 ),  ACD<  21 ), 

AAHMC21 ),  ACM(21 ), ASM  1 (21 ), ASM2C21 ) , AC  2 1 , 3 ) , RN  WYL  ( 2 1 ), 

ARL0AD( 2 1 ) , COMPC  2 1 ) , FLCST( 2 1 ) , A0M( 2 1 ),  CN A ACC  21 ) 

COMMON  NASNAMC  9),AD(9),PF(9,3),  EL  C 9,  3 ) , CUC  9 ) , I BEDC  9 ) , PEE  ( 9 ) , 
&PREC9), P0(9),PSC9),  PI  EC  9 ), TSC 9 ) , TH C 9 ) , TNOFFC 9 > , TNENLC9  ), 
4TNCI VC9), ATCFC9),  WRC9,  2), TENACC9, 6 ) , PERF AC C 9 ) , EM ESC  9 ) 

C0MM0N  F ACO  S TC  50*  6 ) 

COMMON  FAPWC  6),  APC 4, 3) * GWTABC  3), FAMESSC  7,  2)  , EXCHC 1 0, 2) , 

AFAEM (8*2)*  TANK  SC  1 5)*  TAXITOC  3) 

COMMON  ICODESC  50), I DESC  50, 3), RPI C 50,  9 , 2) , I UN  I TS C 50 ) , 

AXRPI 1(9, 10, 4),XRPI 2( 3, 9) 

COMMON  BRC  50, 9),XBR1 C9,  10,  4) ,XBR2( 3, 9 ) , DEFC  50,  9), 
&XDEF2(9),XDEF3(2,9),  XDEF4C  3,  1 5,  9 ) , TEXC  50,  9), 

ANCAT, I YES,  NO,  ICOM, GTOTAL, NPH 
ALPHA  ICOM, IYES,N0, I ATYPE 
DO  1 1 = 1,21 
DO  1 J=  1 , 9 
1 ACREOCJ, I )=0. 

IC0M  = ",  M 
NO  = " N" 

I YES  = "Y'' 

IFC ISWTCHC 10) .EQ.O)G0  TO  20 
1 5 0PENFILE  "BASED*’* 

REWIND  "BASED*" 

DO  18  1=1,9 

RE ADC "BASED*", 600)NASNAM( I ) 

RE AD ("BASED*", 602)LINE,  ADC  I ) 

READC "BASED*", 602 ) L I NE, C PFC I , J ) , J= 1 , 3 ) , C EL C I , K ) , K= 1 , 3 ) 

READ ("BASED*",  602) LINE, CUC I ) , THC  I ) , TSC  I ) 

READC" BASED*",  602)LINE, TNOFFC I ), TNENLC I ), TNCI VC  I ) 

READC "BASED*", 602)LINE, PEEC I ),  PREC I ),  POC I ),  PSC  I ),  PI  EC  I ) 

READC "BASED*",  602)LINE, EM ESC  I ), I BEDC I ) , PERFACC I ) 

READC "BASED*",  602 )L I NE, ATCFC I ) , ( WRC I,  J),  J= 1, 2)  \ 

READC "BASED*",  602)LINE, C TEN AC C I , J ) , J= 1,6) 

18  CONTINUE 

CLOSEFILE  "BASED*" 

OPENFILE  "ACDAT*" 

REWIND  "ACDAT*" 
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TABLE  20  (Cont) 


1862 

1882 

1902 

1922 

1 9 42 
1962 
1982 
2002 
2022 
2042 
2062 
2082 

2 102 
2122 
2142 
2162 
2182 
2202 
2222 
22  42 
2262 
2282 
23°2 
2322 
2342 
2362 
2382 
2402 
2422 
2442 
2462 
2482 
2502 
2522 
2542 


D0  19  1=1*21 

READC’ACDAT*",  600) I ATYPEC  I ) 

REA DC" AC DAT*",  606) LINE, ACAC I ) , ACBC I ),  ACC(  I ), ACD(  I ) 
READ( "AC  DAT*",  606) LINE, AHMC I ), ACMC I ), ASM  1 C I ), ASM2C 
READC "ACDAT*",  606)LINE, ( AC  I , J ) , J= 1 , 3 ) 

RE A DC "AC DAT*", 606>LINE, RNWYLC I ), RL0ADC I ) , C0MPC  I ) 
READC "ACDAT*",  606) LINE, FLCSTC I ) , A0MC  I ) 

19  READC "ACDAT*",  606)L I NE,  CNAAC C I ) 

CL0SEFILE  "ACDAT*" 

IFCISWTCHC 1O).EQ.O)G0  T0  30 
IFCISWTCHC6).EQ. 1)G0  T0  195 
0PENFILE  "RETURN" 

REWIND  "RETURN" 

READC "RETURN", 601)1  CODES,  NBUSE 
READC "RETURN", 603)1 DES, I UNI TS 

READC "RETURN",  604)RPI,XRPI 1,XRPI2, FAC0ST, BPH, CNAAC 
CL0SEFILE  "RETURN" 

IFCISWTCHC 1O)«EQ«2)G0  T0  195 
G0  T0  30 

195  0PENFILE  "RETURN!" 

REWIND  "RETURN  1" 

READC "RETURN  1 ",  604)BPH 
READC "RETURN  1", 601 )NBUSE 
G0  T0  30 

20  I YEAR= 1970 
ISWTCHC  6)= 1 
G0  T0  15 

30  CHAIN  "PART3*" 

600  F0RMATC5XA4) 

601  F0RMATC  818) 

602  F0RMATC  V) 

603  F0RMATC 1 5A4) 

604  F0RMATC5E13.6) 

606  F0RMATC  V) 

END 
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VIII.  PROGRAM  PART3 


PROGRAM  DESCRIPTION 

8.1  PROGRAM  PART3  1/  records  the  phase  to  base  assignments,  reads  the 
tile  LSROUT  containing  the  personnel,  aircraft,  and  fuel  requirements  generated 
by  the  I. SR  Generator,  and  apportions  these  resources  to  their  respective  bases. 

8.2  Upon  entering  PART3  , three  alpha  variables  are  initialized  so  that  the 
fuel  types  required,  as  developed  in  the  LSR  Generator,  can  be  recognized. 

Next  the  tenant  data  previously  recorded  in  PART2  are  extracted  from  common 
and  placed  in  array  TDATA  for  each  base. 

8.3  The  file  LSROUT,  created  by  the  LSR  Generator,  is  then  read.  If 
this  is  not  the  first  time  through  this  program,  the  user  is  given  the  option 
of  retaining  his  previous  phase  to  base  assignment. 

8.4  The  description  of  how  to  allocate  phases  is  printed,  unless  this  is 
a reallocation  of  phases  (ISWTCH  (8)  = 1).  Following  this,  each  phase 
allocation  is  entered  from  the  terminal.  Each  allocation  is  thoroughly  checked 
for  validity.  The  phase  number  is  compared  against  the  maximum  phases 
currently  included  and  the  base  code  and  percentage  value  are  checked. 

8.5  After  the  user  indicates  termination  of  input  (i.e.  , 0,  01  a further 
check  is  made  to  see  if  each  phase  has  been  fully  allocated,  but  not  overallocated. 
If  a phase  is  overallocated , all  previous  allocations  for  that  phase  are  deleted 

and  a request  is  generated  to  the  user  for  a new  phase  assignment.  If  a phase 
is  underallocated,  the  user  is  asked  simply  for  another  assignment. 


1/ 


This  program  is  essentially  the  Rase  Loading  Submodel  discussed  in  Volumes  ! 
and  II . 


^SCEDliC 


PACJ£  u*nk_Nct 
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Once  all  phases  hav<  been  pri  perlv  tssigm  : , the  variable  NBUSE  (I ) 
et  1 1 oi  le]  • ling  on  whether  base  I is  or  is  not  in  use.  Next,  the 

user  specifies  whether  he  wishes  t<  see  .1  detailed  or  summary  version  of  the 
resultinq  base  loading  data. 

8.7  Personnel  figures  1 r-  then  aggregated  and  printed,  either  in  summary 

: : tailed  i 1 . N I lircraft  I tnd  requiremi  t in  iggregated  1 >>  base 

■ • ' 1 res  pi  rtivel  . d so  at  this  time , total  annual 

flight  hours,  i y aircraft  type  (Hl'SREQ),  are  aggregated  for  computing  O&M  costs 
ter  PART9 . t aircraft  ar<  led  in  the  aggregation. 

1 : : ■ ■ ■ iri  11  iated  and  stored  1 1 t pi 

f ue  1 t y pi  ienera  t 1 th « 1 < : tot  recog  - 

niza:  le,  i.e.,  the  tirst  character  of  the  name  is  not  J , A,  or  H , an  error  message 
is  printed  it  th<  terminal. 

8.  ) ['r.-  • .el  requir  ments  and  aircraft  requirements  are  then  converted 

from  thi  ternal  arra  to  the  1 REC  and  ACREQ,  respectively  . 

The  printouts  (summary  or  detailed)  are  displayed  and  the  user  is  then  given  the 
option  to  reallocate  phases . If  he  doi  thi  wholi  procedure  is  repeated, 
followin  j thi  elet  f the  previous  allocations.  If  not,  then  control  transfers 
to  PART4  . 

-J  . ] r'  A fl  ■ irt  GRAM  PA1  in  Figure  8.  Table  21  con- 

tains the  variable  dictionary  of  PROGRAM  PART3;  the  program  and  subroutine 
iry  is  pi  ided  22.  e pi  jram  listing  is  shown  in  Table  23. 
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TABLE  21 


PROGRAM  PART  3 VARIABLE  DICTIONARY" 


Locdii.  .i 

Variable 

Name 

Dimension 

Type 

Description 

PART  3 

JET 

1 

A 

Character  "J"  for  fuel  type  determination 

PART  3 

AVGAS 

1 

A 

Character  "A"  for  fuel  type  determi nation 

PART  3 

HELO 

1 

A 

Character  "H"  for  fuel  type  determination 

PART  3 

TDATA 

9 , 4 

F 

Tenant  data  type  J at  base  I 

PART  3 

NAG 

25 

I 

Number  of  aircraft  types  in  phase  I 

PART  3 

SL 

25 

F 

Student  load  in  phase  I 

PART  3 

1AFT 

25,  3 

A 

Fuel  type  required  for  phase  1,  type 
J instruction 

PART3 

BF1 

25,  3 

F 

Annual  bulk  fuel  required  in  phase  I, 
type  J instruction 

PART  3 

BCFH 

25,3 

F 

Flight  hours  annually  in  phase  I, 
instruction  type  J 

PART  3 

IPH 

1 

I 

Phase  number  input  from  terminal 

PART  3 

AA 

1 

A 

Base  name  input  from  terminal 

PART  3 

ICOM  1 

1 

A 

Common  for  input  format  check 

PART  3 

ICOM2 

1 

A 

Common  for  Input  format  check 

PART  3 

PCT 

1 

F 

Percent  of  phase  allocated  (input 
from  terminal) 

PART  3 

TPCT 

25 

F 

Total  percent  of  phase  I allocated 

PART  3 

IOP 

1 

A 

Terminal  Yes-No  response 

PART  3 

NODETL 

1 

I 

Switch  indicator  for  detailed  or  no- 
detail base  loading  data 

PART  3 

OOUT 

25 

F 

Output  storage  array 

PART  3 

OLJTl 

25, 3 

F 

Output  storage  array 

For  variables  in  common,  see  PROGRAM  PART2  variable  dictionary,  Table  18, 
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TABLE  21  (Cont) 


Variable 

Location  Name  Dimension 


PART  3 

NAME 

PART  3 

SUM  1-4 

PART  3 

PNAS 

PART  3 

XBAS 

PART  3 

ATYPE 

PART  3 

PLREQ 

PART  3 

HRSREQ 

PART  3 

FTYPE 

PART  3 

GAREQ 

Type  Description 


A Phase  I name  (12  characters) 

Personnel  partial  sum  accumulators 

NAS  personnel  type  I 

Total  base  personnel,  type  I 

Aircraft  name  table 

Number  of  aircraft  of  type  I required 

Annual  flight  hours  for  type  I aircraft 

Fuel  type  for  accumulating  over  phases 

Gallons  of  fuel  required  of  type  I 

Altered  fuel  names  (first  character 
only  of  original  name) 


PART  3 


Gallons  of  fuel  required  in  millions 


I 


t 


TABEE  22 

PROGRAM  PART 3 PROGRAM  AND  SUBROUTINE  DICTIONARY 


TABLF  2 3 


PROGRAM  PART  3 LISTING 


1003  COMMON  I YEAR* I SWTCHC 10) 

1023  C0MM0N  ACREQC  9#  2 1 ) # TBAS( 9)#TNAS(9)#BPH(9#25)#ASH(2S#3># 

1 043  AACFH  (9#  1 5)#T0FF(9)#  TENL(  9)#TSTU(9)#PNASE(9)#SI(25)#TCI  V(9)# 

1 063  AS0( 25) # FUREQ( 9#  3)#PHPER(9# 5) # NBUSE( 9 ) # RWC 2 5, 3#  3)# 

108  3 4IACT(25#  3)  # ACN0 1(25#  3) # T0FF 1 ( 2 5) # EMT 1 < 2 5) 

1103  C0MM0N  I ATYPE( 21)#  ACA<  21)#  ACBC  21)#  ACC (21)#  ACD( 21)# 

1 123  4AHM( 2 1 )»  ACM( 2 1 ) # ASM  1 ( 2 1 ) # ASM2( 2 1 ) # A( 2 1 # 3 ) # RN WYL ( 2 1 )# 

1 1 43  ARL0AD(21 )#C0MP(21 )#FLCST(21 )#  A0M( 21)#  CN AAC( 21) 

1 163  C0MM0N  NASNAM( 9 ) # AD( 9).PF(9#3)»EL(9#3)»CU(9)#I BED( 9 ) # PEE( 9 ) # 

1183  4PRE(9)#P0(9)#PS(9)#PIE(9)#  TS(9)»  TH(9)#  TN0FF(9)#  TNENL(9)# 

1 203  4TNCI V(9)# ATCF(9)#  WR(9#  2)#  TENAC(9#  6) # PERFAC(9 ) # EMES( 9 ) 

1223  C0MM0N  F AC0ST( 50#  6) 

1243  C0MM0N  FAPW( 6)# AP( 4# 3)# GWTAB(3)# FAMESS( 7# 2). EXCH( 10# 2)# 

1263  AFAEM(8#2)#  TANK  S( 1 5) # TAX  1 T0( 3) 

1283  C0MM0N  I C0 DES( 50)# I DES( 50#  3)#  RPI ( 50#  9#  2)# I UNI TS( 50)# 

1303  4XRPI  1(9#  10#  4)#XRPI2(3#9) 

1323  COMMON  BR( 50#9)#XBR1 (9# 1 0# 4) # X BR2( 3# 9 ) # DEF( 50# 9)# 

1343  AXDEF2(9)#XDEF3(2#9)#XDEF4(3#  1 5#  9 ) # TEX  ( 50#  9 ) # 

1 363  4NCAT# IYES#N0> I COM# GT0TAL# NPH 

138  DIMENSION  00UT( 2 5)  # TPCT(  25) # PN AS(  4) # OUT  1 ( 25#  3 ) # 

1 403  4TDATA(  9# 4) # ATYPE( 20) # FTYPE( 20) # PLREGK  20) # 

1 423  4SL ( 25) # GAREQ ( 20) # BCFH ( 25#  3 ) # 

1 443  4BF  1(25#  3)#  FUEL  (25#  3)#NAME(25#  3>#NAC(25) 

1 463  4# IAFT(25#3)#JTYPE(20)#XBAS( 4) # HRSREQ( 20) 

1483  ALPHA  AA#  I COM#  I COM  1 # I COM2,  I YES#  NO#  ATYPE#  FTYPE# 

1 503  4NASNAM#NAME#  I ACT#  I AFT#  JET#  AVGAS#  HELO#  I OP#  JTYPE 

1523  4# I ATYPE 

1543  JET*”J” 

1563  AVGAS="4” 

1583  HEL0="H" 

1603  DO  1000  I = 1 # 9 

1623  TDATAd#  l)aTNOFF(I) 

1643  TDATA( I#  2)  = TNENL( I ) 

1663  TDATA(I,3)=TNCIV(I) 

1683  1000  TDATA(  I#  4)  =TDATA(  I#  1 )*TDATA(  I#  2)«-TDATA(  I#  3) 

1703  OPENFILE  ”LSROUT” 

1723  REWIND  "LSR0UT" 

1743  READ(”LSROUT”#  651  )NPH 

1763  DO  2 I = 1 # N PH 

1783  READf^LSROUT’*#  652  ) ( N AME(  I # J ) # J»  1 # 3 ) # NAC(  I ) 

1803  READ( "LSROUT"#  653) SI ( I ) » SO ( I ) # SL ( I > # TO FF 1 ( I ) # EMT1 ( I ) 

1823  READ(  *’L  SROUT*'#  629  ) ( I ACT(  I # J)  # J=  1 # 3 ) # ( I AFT(  I # J 1 ) # J 1 ■ 1 # 3) 

18  43  READ("L SROUT”#  630) ( ACNO 1 ( I # J ) # J= 1 # 3) 
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TABLi:  2 5 (Conn 


18  63 

READC  "LSR0UT"/  630)  (BF|(I,J),J=U3) 

1883 

READC "L  SR0  UT"z  630)  C ASH C I,  J ) » J»  1.3) 

1903 

READC "LSR0UT"/  630)  (BCFHd.  J).J=I.3) 

1923 

2 

CONTINUE 

19  43 

CL0SEFILE  "L  SROUT" 

1963 

IFCISWTCHC 1O).GT.O)G0  T0  500 

1983 

4 

D0  5 1 = 1/25 

2003 

D0  5 J = 1 / 9 

2023 

5 

BPHC  J» I )=0. 

2043 

IFC ISWTCHC8) .EQ.O)G0  T0  9 

2063 

I SWTCH ( 8 ) =0 

2083 

PRINT/ "TYPE  FIRST  BASE  ASSIGNMENT" 

2103 

G0  T0  10 

2123 

9 

PRINT  600 

2143 

10 

INPUT  601/  I PH/  IC0M1/AA/ IC0M2/PCT 

2163 

I F(  I PH  ) 20/  130/  40 

2183 

40 

IF( IPH.GT.NPH)G0  TO  25 

2203 

IFC IC0M1 .EQ. IC0M)G0  TO  30 

2223 

20 

PRINT  602 

2243 

G0  TO  10 

2263 

25 

PRINT/"  N0  SUCH  PHASE- -RETYPE" 

2283 

G0  TO  10 

2303 

30 

IFCIC0M2.NE.I COM ) GO  T0  20 

2323 

70 

DO  9 0 1 = 1/9 

2 3 43 

IFC  AA. NE  • NASNAMC I ) ) GO  TO  90 

2363 

K = I 

2383 

GO  TO  100 

2403 

90 

CONTINUE 

2423 

PRINT  604 

2443 

G0  TO  10 

2463 

1 00 

IFCPCT- 1 .) 120/ 120/ 1 10 

2483 

1 10 

PRINT  605/ PC T 

2503 

GO  T0  10 

2523 

120 

BPHCK/ I PH ) = PCT 

2543 

125 

PRINT  606 

2563 

GO  TO  10 

2583 

130 

DO  140  1=1/25 

2603 

TPCTC I ) =0* 

2623 

DO  1 40  J= 1/9 

2643 

1 40 

TPCTC I )=TPCT< I )*BPHC Jz I ) 

2663 

DO  160  I-l/NPH 

268  3 

IF  C TPCTC I )- .995)  1 50/  1 45/ 1 45 

2703 

1 45 

IFC TPCTC I)- 1.005)  160/  160/  147 

130 


I 


TABLE  23  (Cont) 


2723  147  K»I 

2743  G0  T0  165 

2763  150  K = I 

2783  G0  T0  170 

2803  160  CONTINUE 

2823  G0  T0  190 

2843  165  PRINT  625,K 

2863  D0  167  1*1,9 

2883  167  BPH(I,K>=0. 

2903  G0  T0  125 

2923  170  PRINT  607, K 

2943  G0  T0  125 

2963  190  D0  198  1*1,9 

2983  TEMP=0. 

3003  D0  195  J=  1,25 

3023  195  TEMP=TEMP*BPH< I, J> 

3043  IF(TEMP-.Ol)  196,  196,  197 

3063  196  NBUSEC I )*0 

3083  G0  T0  198 

3103  197  NBUSEC I ) * 1 

3123  198  CONTINUE 

3143  520  PRINT,  "DO  Y0U  WANT  DETAILED  BASE  LOADING  DATA  <Y,N)" 

3163  N0DETL=O 

3183  200  INPUT, I0P 

3203  IF< 1 0 P*  E 0* I YES ) GO  TO  210 

3223  IF( IOP.EQ.NOJGO  TO  205 

3243  PRINT, ”1 NVAL I D REPLY-- TRY  AGAIN" 

3263  GO  TO  200 

3283  205  N0DETL*! 

3303  PRINT  665 

3323  210  DO  400  I B= 1 , 9 

3343  IFCNBUSEC IB) ) 400, 400, 265 

3363  265  K*0 

3383  IF<N0DETL.EQ. 1)G0  TO  267 

3403  PRINT  715, NASNAM< IB) 

3423  267  DO  280  1=1, NPH 

3443  C=BPH< I B, I ) 

3463  IF<C-. 01 >280,280,270 

348  3 2 7 0 K*K*-1 

3503  OOUTfK ) =C*SL< I ) 

3523  OUT  1 CK, 1 ) = C*  TOFF  1 ( I > 

3543  0UT1(K,2)=C*EMT1(I) 

3563  0UT1  (K,  3)  = 0UT1  <K,  1 >«-0UTl  <K,  2>*0OUTO<> 
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TABLE  2 3 (Cont) 


3583 
3603 
3623 
3643 
3663 
3683 
3703 
3723 
3743 
3763 
3783 
3803 
3823 
3843 
3863 
3883 
3903 
3923 
39  43 
3963 
3983 
4003 
4023 
4043 
4063 
408  3 
4103 
4123 
4143 
4163 
4183 
4203 
4223 
4243 
4263 
4283 
4303 
4323 
4343 
4363 
4383 
4403 
4423 


IF(N0DET1_.EQ.  1 )G0  T0  280 

PRINT  7 1 6, (NAME( I , J ) » J = 1 » 3),00UT(K)» ( 0UT 1 (K,J),J= 1#  3> 
280  CONTINUE 
SUM  1 = 0. 

SUM2=0. 

SUM3=0. 

SUM4=0. 0 

D0  28  4 I = 1 , K 

SUM  1 =SUM 1 +0  UT 1 ( I , 1 ) 

SUM2=SUM2+0UT1 (1.2) 

SUM4=SUM4+00UT( I ) 

284  SUM3=SUM3+0UT1 (1.3) 

TSTU( IB)=SUM4 
PH  PER  ( I B.  1 ) = SUM1  + SUM4 
PHPER(  IB,  2)  = SUM2 
IF(N0DETL. EQ. 1 ) 60  T0  2084 
PRINT  7 18,  SUM  4,  SUM1,  SUM 2,  SUM3 
PRINT  7 19,  (TDATA( IB, J), J= 1, 4) 

2034  PNAS(4)=518.4+.259*(TDATA(IB, 4)  + SUM3) 
PNAS(2)=407.9*.0939*(TDATA( IB, 4)*SUM3) 

PNAS(  1)=  19.23*  . 1 765*(  TDATA(  I B,  D + SUM1) 

PNASE( IB)=PNAS(2) 

TNAS(  IB)  = PNAS(  4) 

PNAS( 3 ) =PNAS( 4) - PNAS( 1)-PNAS(2) 

PH PER ( I B, 3) =PNAS( 1) 

PHPER(  IB,  4)  = PNAS(  2) 

PHPER( IB, 5)=PNAS( 3) 

XBAS( 1 ) = PN  A S ( 1 ) ♦ TDATA( I B,  1 ) + SUMl 
XBAS(2)=PNAS(2)+TDATA( IB, 2)+SUM2 
XBAS( 3)=PNAS(3)+TDATA( IB, 3) 

TC I V( IB) =XBAS( 3) 

T0FF( IB) =XBAS( 1 ) 

TENL (IB) =XBAS( 2) 

XBAS( 4 ) = PN  A S ( 4)«-TDATA(  IB, 4)  + SUM3 
TBAS( IB) =XBAS( 4) 

IF(N0DETL.EO.  1 )G0  T0  2085 

PRINT  720, ( PNAS( I ), 1= 1, 4) , ( X BAS( J ) , J= 1 , 4) 

2085  K = 0 
NF  = 1 

D0  300  I = 1 , N PH 
I F ( NAC( I).EQ.O)G0  T0  300 
C=BPH ( I B, I ) 

JL0W= 1 
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4443 
4463 
4483 
4503 
4523 
4543 
4563 
4583 
4603 
4623 
4643 
4663 
468  3 
4703 
4723 
4743 
4763 
4783 
4803 
4823 

48  43 
4863 
4883 
4903 
4923 

49  43 
49  63 
4983 
5003 
5023 
5043 
5063 
5083 
5103 
5123 
51  43 
5163 
5183 
5203 
5223 
5243 
5263 
5283 


TABLE  21  (Cont) 


IFIC-.01 >300*300*285 

285  IF(NF-1>28  6»28  6*288 

286  K = K+1 

ATYPE ( K ) = I ACT( I # 1) 

PL  REQCK ) = ACN0 1(1# 1 )*C 
HRSREQ<K>=BCFH< I# 1)*C 
NF  = 2 

IFCNACCI )- 1 ) 300#  300#  28  7 

287  JL0W=2 

288  JH I =NAC Cl) 

D0  293  J = JL0W*  JH  I 
L = 1 

289  IF(IACTCI#J>.NE.ATYPE<L))G0  T0  291 
PLREQ<L>  = PL  REQ(L  > ♦ ACN0 1 ( I * J ) *C 
HRSREQCL)=HRSREO(L)+BCFH< I* J)*C 

60  T0  293 

291  L=L*  1 

IFCL-K)289*289*292 

292  K»K*1 

ATYPE<K ) = I AC TC I # J ) 

PL  REQ( K ) =ACN0 1 C I # J > *C 
HRSRE9(K)=BCFH( I # J ) *C 

293  CONTINUE 

300  CONTINUE 
L 1 *K 

IFCK.EO. O)N0AC= 1 
D0  301  1 3 1 6#  2 1 
IX  = I - 1 5 

IF<TENACCIB# IX».LT. .01 )G0  T0  301 
K*K*  1 

ATYPE<K  > = I AT Y PEC  I ) 

PLREQOO  = TENAC<  I B* IX) 

301  CONTINUE 
KF=  1 

NF*  I 

DO  350  1=1 # NPH 
C=BPH<  I B*  I ) 

JLOW* 1 

IFCNACCI >.EQ.O)G0  T0  350 
IFCC-.Ol >350# 350#  335 

335  I F< NF- 1)336#336»338 

336  FTYPECKF) = I AFT( I # 1) 

GARE0(KF)=BF1 ( I* 1 )*C 


* 
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TABLE  2 3 (Cont) 


5303  NF  = 2 

5323  I F(NAC< I )- 1 ) 3 50*  350*  337 

5343  337  JL0W=2 

5363  338  JHI=NAC(I) 

5383  D0  343  J=JLCW,JHI 

5403  L’  1 

5423  339  I FC I AFT( I * J ) . NE . F TYPEC L ) ) G0  T0  341 

5443  GAREGKL)=GAREQCL)+BF1CI, J)*C 

5463  G0  T0  343 

543  3 3 41  L = L+  1 

5503  IF(L-KF) 339*  339#  342 

5523  342  KF=KF*1 

5543  FTYPE<KF)=IAFTCI*J) 

5563  GAREQ(KF>=BF1 C I * J ) *C 

5583  343  CONTINUE 

5603  350  CONTINUE 

5623  0PENFILE  "SCR1" 

5643  REWIND  "SCR1" 

5663  WRI  TE( "SCRl "*  65  4)  C FTYPEC  I ) * I = 1 * 20) 

5683  REWIND  "SCRl" 

5703  READC "SCR  1 "*  65 4) ( J TYPE< I ) * I = 1 * 20) 

5723  D0  360  I TYPE= 1 * 3 

5743  360  FUREQC IB* I TYPE)=0. 

5763  D0  370  K2=1*KF 

5783  IF(JTYPE(K2) .EQ.JET) I T= 1 

5803  IFCJTYPE(K2).EQ.AVGAS)IT=2 

5823  IFf JTYPECK2).EQ.HEL0)IT=3 

5843  IF<  IT.LT.  1 )PRINT*"  FUEL  IN  PHASE  "*J*"  IS  0F  UNKN0WN  TYPE" 

5863  FUREQC I B, I T) =FUREQf I B* I T)+GAREQ(K2) 

5883  370  CONTINUE 

5903  DC  372  1 = 16*21 

5923  IK* I ~ 1 5 

5943  J*IFIXC A0M< I )*.005) 

5963  372  FUREOt I B* J ) * FUREQC I B* J ) ♦ TEN AC< I B» I K ) * FLCST< I ) 

5983  IF(N0DETL.EO. 1 )G0  T0  375 

6003  PRINT  619 

6023  PRINT  620*  <ATYPE( I )*  PLREQ( I )» 1= 1*K) 

6043  375  D0  380  1*1, K 

6063  DC  380  J* 1 * 1 5 

6083  IF(ATYPE< I ) .NE» I ATYPECJ) )G0  TC  380  i 

6103  ACREOC I B, J)=PLREQ< I ) 

6123  ACFH ( IB»J)=HRSREQ( I ) 

6143  380  CONTINUE  _ 

1 
I 
I 
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TABLE  2 3 (Cont) 


6163 
6183 
6203 
6223 
6243 
6263 
6283 
6303 
6323 
6343 
6363 
6383 
6403 
6423 
6443 
6463 
6483 
6503 
6523 
6543 
6563 
6583 
6603 
6623 
6643 
6663 
668  3 
6703 
6723 
6743 
6763 
6783 
6803 
6823 
68  43 
6863 
6883 
6903 
6923 
6943 
6963 
6983 
7003 


D0  38  5 1 = 16*21 
J=I  - 1 5 

385  ACREQC IB* I )=TENACC IB* J) 

IF(N0DETL.EQ. 1 )G0  T0  390 
PRINT  621 

PRINT  622* ( F UREQC IB* I )* 1= 1*  3) 

G0  T0  400 

390  WAG=GARE0( 1 )* 1 .E-6 

IFCN0AC.EQ. 1 )G0  T0  398 

PRINT  660*  NASNAMC IB)*  TSTUC IB)*  SUM3* TNASC IB)* 

AT0FFCIB)*  TENL  ( I B>  * TCI  VC  I B) * TBASC I B) * ATYPEC 1 ) * PL REG ( 1 )* 
AFTYPEC 1 ) * WAG 
IFCL 1 .EQ. 1 )G0  T0  400 
D0  395  J 1 =2*  L 1 
WAG  = GAREQ(J1 ) * 1 • E- 6 

IFC (K.GE. J 1 ) . AND. (KF*GE. J1 > ) PRINT  66 1 * ATYPE( J 1 ) * PL REQC J 1 ) * 
AFTYPEC J 1 ) * WAG 

IFC  CK.LT.J1 ) .AND. (KF.GE.J1 )) PRINT  662*  FTYPEC J 1 ) * WAG 
IF( (K.GE. J 1 ) .AND. (KF.LT.J1 )) PRINT  663*  ATYPEC J 1 ) * PL REQ( J 1 ) 
395  CONTINUE 
G0  T0  400 

398  PRINT  660*  N ASNAM (IB)*TSTU(IB>*  SUM3, TNASC IB)*  T0FF< I B) » 

ATENLC IB)*  TCI  VC  IB)*  TBASC IB) 

N0AC=  0 
400  CONTINUE 
PRINT  609 
410  INPUT* I 0P 

IFC I0P.EQ. IYES)G0  T0  502 
I FC I 0P.EQ.N0 ) CHAIN  "PART4*" 

PRINT  628 
G0  T0  410 

500  PRINT  626 

IFC  ISWTCHC  6)  .EQ.  DISWTCHC  10)=0 

501  INPUT  627* I0P 

IFC I0P.EQ. IYES)G0  T0  520 
IFC I0P.EQ.N0)G0  TO  4 
PRINT  628 
G0  T0  501 

502  I SWTCH C 8 ) = 1 
G0  T0  4 

600  F0RMATC " PHASE  ALLOCATION!  ASSIGN  EACH  PHASE  AS--"/lX 

A"I  I * AAA  A*  .XX**/ IX"  WHERE!  II  * PHASE  (2  DIGITS)!  AAAA  = BASE" 
A"  CODE ! "/7X". XX  = PERCENT  AT  BASE  (1.0  = lOOZWIX 


155 


TABLE  2 3 (Cont) 


7023 
7043 
7063 
7083 
7 103 
7123 
7 1 43 
7 1 63 
7 183 
7203 
7223 
7243 
7263 
7283 
7303 
7323 
7343 
7363 
7383 
7403 
7423 
7443 
7463 
7 48  3 
7503 
7523 
7543 
7563 
7 58  3 
7603 
7623 
7643 
7663 
7 68  3 
7703 
7723 
7743 
7763 
7783 
7803 
7823 
7843 
7863 


A"BASE  CODES:  CHAS  C0RP  ELL  Y"/  1 3X"K  I N G MERI  PENS'V13X 
A"SAUF  WHIT  PHAN"/"  II  = 0 TO  TERMINATE:") 

601  E0RMAT(  I2#Al#A4.»Al#F3.2) 

602  E0RMAT ( 22H  BAD  E0RMAT- -TRY  AGAIN) 

604  F0RMATC31H  INCORRECT  BASE  C0DE-- TRY  AGAIN) 

605  FORMATC 10H  THE  VAL UE 1 XF 6. 2» 1 X 45HGI VEN  FOR  PERCENT  CANNOT  EXCE 
AED  1 . 

A - - TRY  AGAIN) 

606  FORMAT ( 5H  NEXT) 

607  FORMAT ( 7H  PHASE  I2.49H  HAS  NOT  BEEN  ASSIGNED  OR  IS  ONLY  PART 
ALY  AS 

ASI GNED) 

609  F0  RMAT ( // 1 X”B0  YOU  WISH  TO  RE- ALLOCATE  PHASES  CY#N)") 

619  FORMAT  C //  1 4H  AIRCRAFT  DATA/ 1 X 4H  TY  PE  4X3HN0.) 

620  FORMATC 1XA4#2XF5.0) 

621  FORMAT C //10H  FUEL  DATA/ IX 4HTYPE2X 7HGALL0NS) 

622  FORMAT ( 1 X"JET  " 1 X E9 . 3/ 1 X"AGAS" 1 X E9 . 3/ 1 X "HELO " 1 X E9 . 3 ) 

625  FORMATC 1X6HPHASE  I2.1X46HHAS  BEEN  OVER-ASSIGNED#  RE- ALLOCATE 
ATHIS 

AHASE  > 

626  FORMATC 1X55HD0  YOU  WISH  TO  KEEP  SAME  PHASE  TO  BASE  ASSIGNMENT 
A C Y>  N ) ) 

627  FORMAT C A 1 ) 

628  FORMATC 1X24HINVALI D REPLY- - TRY  AGAIN  ) 

629  FORMATC 5X6A4) 

630  FORMATC  5X3E13.6) 

650  FORMATC A 4# 5E 1 2 . 6/ 4E 1 2. 6# I 1 /6E 1 2. 6/6E 1 2. 6/E  1 2. 6) 

651  FORMATC  5X I 3 ) 

652  FORMATC 5X3A4* I 3) 

653  FORMATC 5X5E1 3. 6) 

654  FORMAT C 7 5A 1 ) 

655  F0RMATCA4# 6E12.6/6E12. 6) 

660  FORMATC  I X A 4#  F 6 . 0#  F7 . 0#  F7 . 0#  3F6.  0>  F7  . 0#  1XA4.F5.0#  1XA4.F7.2) 

AF  4 . 0#  A 4#  1X1PE8.3) 

661  FORMATC  51XA4#  F5.  0.  1XA4#  F7. 2) 

662  FORMATC 61XA4# F7. 2) 

663  FORMATC 51XA4# F5.0) 

665  FORMATC 1X"BASE  LOADING  SUMMARY"/ 1X"*PEKS0NNEL"38X 

A3X"*AI RCRAFT  *FUEL"/ 6X"STD.  " 1 2C 1 H - ) "BASE  TOTALS  " 

A 1 2C  1 H- ) 1 OX "M I LL I ON  GAL."/lX"NAS  LOAD  PHASE 

ANAS  OFF  ENL  CIV  TOTAL  TYPE  NO.  TYPE  AMOUNT") 

715  FORMAT C /// 1 X"N AS-- "A  4/ 1 X 55HPERS0NN  EL  STD. LOAD 

A OFF  I 


TABLE  23  (Cont) 


7883 

7903 

7923 

7943 

7963 

7983 

8003 


ACERS  ENLISTED  CIVILIAN 
716  F0RMAT<  1 X»  3A4>  F6. 0*  F 1 0. 
7 18  FORMAT C 1 3H  ALL  PHASES 

719  FORMAT < 1 3H  TENANTS 

720  FORMAT ( 1 3H  NAS  PERS. 

A 13H  TOTAL  BASE 

END 


TOTAL) 

0*  F9. 0»9X, F9.0) 

, F6.0>F10.0»  F9.0>9X,F9.0/> 

# 6X,F10.0>3F9.0) 

# 6X, F10. 0*  3F9. 0/ 

# 6X,F10.0»3F9.0> 


I 


IX.  PROGRAM  PART4 


PROG  IRA  M DESCRIPTION 

9.1  PROGRAM  PART4  reads  the  Data  File,  TABLE*  containing  assorted  tables 
for  computing  facility  requirements.  In  addition,  on  the  first  time  through, 

the  Assets  Position  Data  File,  RPIFI*  , and  the  Cost  Data  File,  INVCO*,are  read. 
Finally,  PROGRAM  PART4  reads  the  file  RUNWAY  containing  runway  requirements 
generated  within  the  LSR  programs  and  apportions  these  requirements  to  bases 
by  using  the  phase  allocation  obtained  in  PART3  . 

9.2  Upon  entering  PART4  , the  current  number  of  facilities  included  in  the 
IFRS  model  is  set  (i  .e  . , 30)  . If  this  is  the  first  time  through  this  orogram 
(ISWTCH(IO)  = 0),  the  cost  file  INVCO*  is  read.  Next,  the  file  TABLES*  is 
read . 

9.3  Again,  if  this  is  the  first  time  through,  the  Assets  Position  i lie  (RPIFI*) 
is  read  in  Subroutine  INTR'd.  Subroutine  RWY1  is  called  each  time  through. 

Then  control  is  transferred  to  PARTY. 

SUBROUTINE  RWY1 

9.4  In  Subroutine  RWY1  , the  user  is  asked  if  he  wishes  to  skip  the  airspace 
factors  and  OFF  requirements  printout.  The  resulting  decision  is  recorded  in 
the  variable  [SKIP. 

9.5  Next,  the  runway  requirements  by  phase  (file  RUNWAY)  are  read. 

Aircraft  names  are  checked  against  a current  list  and,  if  no  match  is  found, 
an  error  message  is  displayed.  Valid  names  are  recorded  according  to 
their  order  in  the  store  1 array  'ATYPE  containing  acceptable  aircraft  names. 


PFSCEPIIG  PA  •£  BUNK-NOT  i?  I Li  CM? 
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’ ,r, 
ipportio  vi:-  ; md  tor  1 th<  irr  i XI  Rl.  • Fsp  qL! 

: ' !I ' ■ ' : juested.,  m prints  »se.  If  lirspaci  is  oversaturated, 

user  m v :h  >os  to  retui  to  ti  tputs  froi 

that  model,  thus  n lucing  airspace  saturation.  If  th*  choice  is  made  to  ret  ■ 

' 1 ting  cont 

thC  atrsp  tCe  an  >1  ill  PTOC<  SS<  : . ollow  - : 

this,  the  user  is  ask<  I if  hi  • ; tor  il  ■ . ..  f so,  control  tr/md-rr 

to  PARTS;  if  not,  the  r-omputations  continue. 


If  tho  user  has  not  transfen  t to  het  PARTS  or  PART3 , the  require  i 
nnd  avail  ihle  runway  ta!>b  s in  sorted  in  descen  iinq  or  ier,  first  on  length  of 
runway  an  1 second  on  thickness.  When  this  has  been  ione,  the  subrout, n* 
returns  to  the  main  oroar am. 


■ flow  irt  of  PROGRAM  PART 4 is  shown  n 1 Ig  ire  9 J cont 

the  variable  Uctionar  of  PROGRAM  PART  4;  the  oroar., m an  Is  broutii  - 3t  * 
is  pro VI  led  in  Tal  le  :r, . The  program  listing  is  shown  in  Table  26. 
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I 
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I 

i 


lt>0 


I 


T oc  it  ion 


k 


TART  r 24 

PROGRAM  PART 4 VARTART  E DTCTT ONARY* 


Variable 

Name 

Dimension 

Type 

Description 

LINK 

1 

I 

Dummy  variable 

BT.NK 

1 

A 

Pour  blank  characters 

1 SKIP 

1 

A 

Print  option  switch 

IOP 

1 

A 

Terminal  Yes- No  response 

RUN  DAT 

25,3,2 

F 

Runway  requirements  data 

TAG  NAM 

25,3 

A 

Aircraft  names  with  runway 
requirements 

I [TAG 

] 

I 

Aircraft  name  match  switch 

TSCR 

20 

T 

Output  scratch  table 

TABLE 

20,3 

F 

Air  saturation  and  OT.P  out- 
put table 

1 SPACE 

I 

Over  saturation  indicator 

'ACNAM 

25,3 

I 

Aircraft  type  code  for  phase 
I , instruction  type  f 

Tor  variables  in  common,  sne  the  variable  dictionary  for  PART2  , Table  18 


TABLE  2 5 

PROGRAM  PART4  PROGRAM  AND  SUBROUTINE  DICTIONARY 


TART  r.  2 6 


PROGRAM  PART 4 T.TSTTNG 


1 004 
1 024 
J 044 
1064 
1 08  4 
1 104 
1 124 
1 1 44 
1 1 64 
1184 
1 204 
1224 
1 244 
1264 
128  4 
1 304 
1 324 
1344 
1 364 
1 38  4 
1 404 
1 42  4 
1 444 
1 464 
1 484 
1 504 
1 524 
1 544 
1 564 
1 58  4 
1 604 
1 624 
1 644 
1 664 
1 68  4 
1 704 
1 724 
1 744 
1764 
1 784 
1804 
1824 
1844 


COMMON  I YEAR, I SWTCH ( 10) 

COMMON  ACRE&C9,  21 ) , TBASC9),  TNAS(9),BPH(9,25),ASH(2  5, 3)/ 

AACFH  ( 9 , 1 5), T0FFC9), TENL ( 9 ) , TSTUC  9 ) , PNASE C 9 ) , SI C 25) , TCI VC  9), 
AS0(25),FUREQ(9,3),PHPER(9,  5) , NBUSEC 9 > , RWC 25,  3*  3)* 

A I ACTC2  5,  3)  * ACN0  1 C 25,  3 ) , TOFF  1 C 2 5 ) , EMT  1 C 2 5) 

C0MM0N  I ATYPEC21 ),  ACAC21 ), ACBC21 > , ACC ( 2 1 ) , ACDC  2 1 ) , 

AAHMC 2 1 ),  ACMC  21 ),ASM 1 ( 2 1 ) , ASM2 ( 2 1) , AC  2 1 , 3),  RNWYLC  21 ), 

ARL0ADC 2 1 ), C0MPC21 ) , FLCSTC2 1 ), AOMC  21 ), CNAACC  21 ) 

COMMON  NASNAMC9), ADC9),  PFC9, 3>,EL(9,3),CU(9),I BEDC9) > PEEC9) , 
APREC  9),  P0(9>,  PSC  9 ) , PI  EC  9 ) , TSC 9 ) , TH C 9 ) , TNOFFC  9 ) , TNENL  C 9 > , 
ATNCI V(9), ATCFC9) , WR< 9,2),  TENACC  9,  6 ) , PERFAC  ( 9 > , EMESC 9 ) 

COMMON  FAC0STC5O,  6) 

COMMON  FAPWC  6), AP( 4, 3), GW T ABC 3), F AMESSC 7, 2) , EXCH C 1 0,  2)  , 
AFAEMC8, 2), TANK  SC  15),  TAXI  TOC  3) 

COMMON  ICODESC  50), I DESC  50, 3), RPI ( 50,9, 2), I UNI TSC  50), 

AX  RP I 1(9,  10,4),XRPI2C3,9) 

COMMON  BRC  50,9), XBR1 C9,  10, 4),XBR2( 3, 9), DEFC  50,  9) , 
AXDEF2C9),XDEF3C2,9),XDEF4C  3,  1 5,9)  , TEX  C 50,9  ), 

ANCAT,  I YES,  NO,  I COM,  GTOTAL,NPH 
ALPHA  I YES,  NO,  I COM 
NCAT=30 

IFCISWTCHC 10). NE.O)G0  TO  8 

7 0PENFILE  "INVCO*" 

REWIND  "IN VC0*" 

DO  80  1=1, NCAT 

8 0 RE ADC "INVCO*",  603)LINE, C FAC0STC I, J), J= 1, 6) 

CL0SEFILE  "INVCO*" 

8 OPENFILE  "TABLE*" 

REWIND  "TABLE*" 

READC "TABLE*",  604) C FAPWC I 1 ) , I 1 = 1 , 6) , C C APC I 2, J 1 > , 

AI2=1, 4)  , J I = 1,3),  C GWTABC J2),  J2= 1, 3),  C C F AM ESS C I 3,  J3), 

A I 3=  1 , 7),  J3=  1 ,2),  C C EXCHC  I 4,  J4),  I 4=  1,  1 0),  J 4=  1, 2), 

AC  CFAEMC  I 5,  J 5),  I 5= 1,8),  J 5= 1, 2), C TANK  SC  I 6) , I 6= 1 , 1 5) , 

ACTAXI TOC J6), J6= 1, 3) 

CLOSEFILE  "TABLE*" 

IFCISWTCHC 10).EQ«0) GO  T0  10 
GO  TO  20 
10  CALL  INTRPI 
20  CALL  RWY I 

CHAIN  "PARTY*" 

603  F0RMATC  V) 

604  F0RMATC 6E1 2. 6) 

END 
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1864 
1884 
1904 
1924 
1944 
1964 
1984 
2004 
2024 
2044 
2064 
203  4 
2104 
2124 
21  44 
2164 
2184 
2204 
2224 
2244 
2264 
2284 
2304 
2324 
2344 
2364 
2384 
2404 
2424 
2444 
2464 
248  4 
2504 
2524 
2544 
2564 
2584 
2604 


TART.E  26  (Oont) 
a.  Subroutine  TNTRPI 

SUBROUTINE  INTRPI 
COMMON  I YEAR* ISWTCH<  10) 

COMMON  ACREQC9*21 )*  TBASC  9 ) * TNASC  9 ) * BPHC9* 25)* ASH (2 5* 3>* 
&ACFHC9*  1 5)*  T0FFC9)* TENL C 9 ) * TS TUC 9 ) * PNASEC 9 ) * SI C 2 5) * TC I VC  9 ) * 
4S0C25),  FUREQC9*  3)* PHPERC  9* 5)  * NBUSEC  9 ) * RWC  2 5*  3*  3)» 

A I ACTC  2 5*  3 ) * ACNO 1 C 2 5* 3) , TOFF  1 C 2 5) * EMT H 25) 

COMMON  I ATYPEC  2 1 ) * AC AC  2 1 ) * ACBC 2 1 ) * ACC C 2 1 ) * ACDC 2 1 ) * 

AAHMC21 )*  ACMC21 ) * ASM  1 C 2 1 ) * ASM2C  2 1 ) * AC  2 1 * 3 ) * RN WYL C 2 1 )* 

ARLOADC  2 1 )*C0MPC21 )*  FLCSTC21 ) * AOMC  21)*  CNAAC  C 2 1 ) 

COMMON  NASNAM  C9)*ADC9)*PFC9*3)*  EL  C9*  3)*CUC9)» I BEDC  9 ) * PEEC  9 ) * 
APREC9), P0C9), PSC9),  PIEC9),  TSC9),  TH C 9 ) * TNOFFC 9 ) * TNENL  C 9 ) * 
ATNCI VC9), ATCFC9)* WRC 9* 2 ) * TENAC C 9* 6) * PERFACC 9)*  EMESC9) 

COMMON  FACOSTC  50*  6) 

COMMON  FAPWC  6)* APC  4*  3 ) * GWTABC 3 ) * FAMESSC 7* 2) * EXCH C 1 0*  2)* 
AFAEMC8* 2)* TANK  SC  15)*  TAXI  TOC  3) 

COMMON  ICODESC  50)* IDESC  50*  3). RPI C 50*9, 2)* I UNI TSC  50)* 

AXRPI 1C  9*  10*  4) * X RPI 2C  3*  9 ) 

COMMON  BRC  50*9)*XBR1  C9*  10*  4)  * XBR2C  3*  9 ) * DEFC  50*  9 ) * 
AXDEF2C9)*XDEF3C2*9)*XDEF4C  3* 1 5* 9 ) * TEX C 50*9 ) * 

ANCAT,  IYES*N0* I COM, GTO TAL, NPH 
ALPHA  I YES*  NO* I COM 
0PENFILE  "RPI FI*” 

REWIND  "RPIFI*" 

DO  30  1=1*  NC AT 

READC"RPIFI*"*  600) ICODESC I )*  C I DESC I* J) , J= 1 * 3) * I UNI TSC I ) 

30  CONTINUE 
DO  40  1=1*9 
DO  35  J= 1,NCAT 

35  READC "RPIFI*”*  60 1 )L I NE*  RPI C J* I * 1 ) , RPI C J* I * 2) 

DO  36  J= 1* 10 

36  READC’RPIFI*"* 601 )LINE*  CXRPI 1CI,J*K)*K=1*4) 

READC "RPI FI*"* 601 )LINE*  CXRPI2CK* I )*K= 1, 3) 

40  CONTINUE 

CLOSEFILE  "RPIFI*" 

RETURN 

600  FORMATC  4X1  5*  1X3A4*  1XA2) 

601  FORMAT C V) 

END 
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2624 
2644 
2664 
268  4 
2704 
2724 
2744 
2764 
2784 
2804 
2824 
2844 
2864 
2884 
2904 
2924 
2944 
2964 
298  4 
3004 
3024 
3044 
3064 
308  4 
3104 
3124 
31  44 
3164 
3184 
3204 
3224 
3244 
3264 
3284 
3304 
3324 
3344 
3364 
3384 
3404 


TART.H  26  (Cont) 

1).  Subroutine  RWY 1 

SUBROUTINE  RWY 1 
COMMON  IYEAR*ISWTCHC 10) 

COMMON  ACREQC  9*21)* TBASC9)* TNASC 9 ) * BPH< 9, 2 5) * ASH C 25,  3)* 

&ACEH  C 9*  15)* TO  F F C 9 ) * T ENL C 9 ) * TSTUC 9 ) * PNASEC 9 ) * SI C 2 5) * TCI  VC  9 > * 
&S0C  25) * FUREQC  9*  3) * PHPERC  9* 5)*NBUSEC9 )*  RWC25,  3*  3)  * 

<5  I ACT C 25*  3 ) * ACN0  1 C25*  3)*  TOFF  1 C 25 ) * EMT  1 C 2 5 ) 

COMMON  I ATYPEC  2 1 ) * AC AC  2 1 ) * ACBC 2 1 ) * ACCC 2 1 ) * AC DC  2 1 ) * 

&AHMC21 )* ACMC21  )*  ASM1 C21 )* ASM2C21 )*  AC  21 » 3)* RNWYLC  21 )* 

&RLOADC  21 )*  C0MPC21 )*  FLCSTC21 )* A0MC21 )*  CNAACC21 ) 

COMMON  NASNAMC9)*  ADC  9)*  PFC9*  3) * ELC9*  3)*  CUC9) , I BEDC  9 ) * PEEC  9 ) * 
&PREC9)*P0C9)*  PSC9)*  PI  EC  9)*  TSC9)*  TH C 9 ) * TN0FFC9)*  TNENLC9)* 
ATNCIVC9)*ATCFC9)*WRC9*2)*  TENACC9*  6)  * PERFACC9)*  EMESC9) 

COMMON  F ACOSTC  50*  6) 

COMMON  F APWC  6)  * APC  4*  3 ) * GW  TAB  C 3)  * FAMF.SSC  7*  2 ) * EXCH  C 10*2)* 
&FAEMC  8*2)* TANK  SC  15)*  TAXI  TOC  3) 

COMMON  ICODF.SC  50)*  I DESC  50*  3)*  RPI  C 50*  9*  2)  * I UNI  TSC  50)  * 

&XRPI  1C  9*  10*  4)*XRPI2C3*9) 

COMMON  BRC  50*9)*XBR1 C9*  10*  4) * XBR2C 3* 9 ) * DEFC 50* 9 ) * 
«XDEF2C9)*XDEF3C2*9)*XDEF4C  3*  1 5*  9)*  TEX C 50*9)* 

&NCAT* I YES*  NO* ICOM*  GT0TAL*NPH 

DIMENSION  RUNDATC  25* 3*  3 ) * JACNAMC 25*  3 ) * ISCRC20)*  TABLEC20*  3) 

«* I ACNAMC  25* 3) 

ALPHA  I 0 P*  NO  * I YES*  BLNK*  JACNAM*  IATYPE 
BLNK  = " 

PRINT* "AI RSPACE  FACTORS  A OLF  REQUIREMENTS:" 

I SK I P=0 

PRI  NT*  "SKI  P PRINTOUT  CY*N)" 

2 INPUT* IOP 

IFCIOP.EQ. IYES)G0  T0  3 
IFCI0P.EQ.N0)G0  T0  4 
PRINT* "BAD  REPLY- -RE TYPE" 

GO  TO  2 

3 I SK I P= 1 

4 OPENFILE  "RUNWAY" 

REWIND  "RUNWAY" 

READC  "RUNWAY"*  600)NPH 

READC" RUNWAY", 601 ) C C JACNAMC I*J),J=1,3)»C  RUNDATC I , J 1 * 1 ) * 

AJ l = I*  3)*  C RUNDATC  I,  J2*  2)*  J2=  I , 3),  C RUNDATC  I # J3*  3 > * J3=  I * 3)  * 

&I  = 1 * NPH ) 

CLOSEFILE  "RUNWAY" 
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TABLE  26  (Conti 
b.  Subroutine  RWY1  (C-ont) 

3424C REPLACE  A/C  NAMES  BY  INTERNAL  C0DE 

3444  D0  15  J= 1 » NPH 

3464  D0  15  K=  l » 3 

3484  IFCJACNAMC J*K> .EQ.BLNK>G0  T0  15 

3504  I FL  AG=  0 

3524  D0  10  1=1*15 

3544  IFC JACNAMC J*K> .NE. I ATYPEC I ) ) G0  T0  10 

3564  I FL AG= 1 

3584  I ACNAMC J*K  >=  I 

3604  10  CONTINUE 

3624  IFUFLAG.EGl.  1 > G0  T0  15 

3644  PRINT*  "UNRECOGNIZED  A/C  TYPE  IN  RUNWAY  COMPUTATIONS!  " 

3664  PRINT  602* JACNAM ( J* K ) 

3684  15  CONTINUE 

3704C AGGREGATE  BY  BASE  AND  A/C  TYPE 

3724  D0  100  I B=  1 , 9 

3744  IFCNBUSE(IB) .EQ.O)G0  T0  100 

3764  K=  1 

3784  D0  90  1=1*  NPH 

3804  C=  8PH ( I B* I ) 

3824  IFCC-.01  >90*90,  18 

3844  18  D0  90  J=l,3 

38  6 4 IFC  RUNDATC  I » J*  1 > - . C 1 > 9 0*  9 0,  20 

3884  20  IFCK-1  >25,22*25 

3904  22  XBR1CIB*  1*  1 > = RUN DA TC I , J,  1>*C 

3924  M=I ACNAMC I * J> 

3944  XBRKIB*  1 * 2>  « RNWYL  C M > 

3964  XBR1 ( IB*  1 * 3)  = RL0MDC M > ♦ . 005 

3984  XBRKIB*  1,  4>  = C0M  PC  M > •*■  . 005 

4004  I SCRC  l > »M 

4024  TABLEC  1*  1 > = RUNDATC  I*  J*  2>*C 

4044  TABLEC  1*  2>  = RUNDATC  I*  J,  3>*C 

4064  TABLEC  1 , 3>  =FL0  ATC  M > •*•  . 005 

4084  K=2 

4104  G0  T0  90 

4124  25  M= I ACNAMC 1 * J ) 

4144  LM=K - 1 

4164  D0  40  L* 1*LM 

4184  IFCM.NE. ISCRCL) >G0  T0  40 

4204  XBR1 Cl B*L*  1 >=XBR1 C I B*L*  1 >♦  RUNDATC  I * J*  1 >*C 

4224  TABLECL*  1 ) = TABLECL*  1 >♦ RUNDATC I * J*  2>*C 

4244  TABLECL*  2>  = TABLECL*  2) ♦ RUNDATC I * J* 3>*C 

4264  G0  T0  90 

4284  40  CONTINUE 
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i 


4304 

4324 

4344 

4364 

438  4 

4404 

4424 

4444 

4464 

448  4 

4504 

452  4C 

4544 

4564 

4584 

4604 

4624 

4644 

4664 

468  4 

4704 

47  24 
4744 
4764 
478  4 
4804 

48  24 
48  44 

48  6 4 
488  4 
4904 
4924 
4944 

49  64 
498  4 
5004 
5024 
5044 
5064 
508  4 


TABLE  28  (Cont) 

b.  Subroutine  RWY1  (Cont) 

IFf K.EQ. 1 1 )G0  T0  200 

XBRlf IB,  K,  1 ) = h UN  DA  T ( I, J, 1)*C 

I SCRf  K ) =M 

XBRlfIB,K,2)=RNWYLfM) 

XBR1 f I B,  K , 3>=RL0ADfM)+.OO5 
XBD1  C I 8,  K.  4)  = COMPf  M ) + • 00  5 
TABLEfK,  1 ) = RUNDATC I,  J, 2>*C 
TABL  Ef  K,  2)  = hUNDATf  I,J*3)*C 
TABLEfK,  3>=FL0ATfM>+ . 005 
K = K + 1 

90  CONTINUE 

PRINT  AIRSPACE  AND  0LF  DATA 

IFfISKIP.EQ.l)G0  T0  100 
PRINT  603,NASNAMf I B) 

KM  = K- 1 

IFCKM.EQ.O)G0  TO  98 

I SPACE=0 

D0  9 5 1=  1,KM 

M=  I F IX  C TABL  E<  D31) 

IFf  TABLEf  Ml.GT.MI  SPACE=  1 

95  PRINT  604,  I ATYPECM)  , TABLEf  I,  D,  TABLEf  I,  2) 

IFf ISPACE.NE. 1 )G0  T0  100 

PRINT, MN0TE:  AIRSPACE  IS  OVER- SATURATED" 

PRINT, "D0  YOU  WISH  T0  CONSTRAIN  L SR  OUTPUT  f Y, N) " 

96  INPUT, IOP 

IFf I0P.EQ.N0JG0  T0  100 
IFfIOP.EQ.IYES) CHAIN  "PART8*" 

PRINT, "INVALI D REPLY--RETYPE" 

G0  TO  9 6 

98  PRINT, "N0  REQUIREMENTS" 

100  CONTINUE 

IFfISKIP.EG.DGO  TO  120 

PRINT, "DO  YOU  WISH  TO  RE-ALLOCATE  PHASES  TO  BASES  f Y, N ) " 
105  INPUT, IOP 

IFf I0P.EQ.N0)G0  TO  120 
IFf IOP.EQ. IYES)G0  TO  110 
PRINT, "INVALID  REPL Y -- RETYPE" 

GO  TO  105 
110  I SWTCH  f 8 ) = 1 

CHAIN  "PART3*" 
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TABT.F  26  (Cont) 
b.  Subroutine  RWY1  (Cont) 


5104C SORT  RE&UI  REMENTS  FIRST  BY  LENGTH*  THEN  THICKNESS 

5124  120  D0  180  IB=1*9 

5144  IF(NBUSE( IB) .EQ.O)G0  T0  180 

5164  D0  130  1=1*9 

5184  JL= I ♦ 1 

5204  D0  1 30  J = JL*  10 

5224  IF(XBR1  ( IB*  I *2)  .GT.XBRK  IB*  J*  2)  ) G0  T0  130 

5244  D0  124  Jl= 1*  4 

5264  TEMP=XBR1 ( IB* I* J 1 ) 

5284  XBR1 ( I B* I* J1 )=XBRI ( I B* J* J 1) 

5304  124  XBR1  < IB*  J*  J1  )=TEMP 

5324  130  CONTINUE 

5344  D0  140  1=1*9 

5364  JL  = 1+1 

5384  D0  135  J = JL*  10 

5404  IF( (XBR1 < I B* I* 2) -XBR1 ( I B* J* 2) ) • GT.  1 0. ) G0  T0  140 

5424  I F ( XBR 1 ( IB* I * 3) • GT»XBR1( IB*J*  3) >G0  T0  135 

5444  D0  132  J 1= 1*  4 

5464  TEMP=XBR1 ( IB* I * J 1 ) 

5484  XBR1 C I B* I* J1 ) = XBR1  ( I B* J* J 1 ) 

5504  132  XBR1(IB»J*J1)  = TEMP 

5524  135  CONTINUE 

5544  140  CONTINUE 

5564C SORT  AVAILABLE 

558  4 D0  150  1 = 1*9 

5604  JL  = T I 

5624  D0  1 50  J = JL*  10 

5644  IF(XRPI 1 ( I B* I* 2) . GT.XRPI 1 C I B» J* 2) ) GO  TO  150 

5664  DO  1 44  Jl= 1*  4 

5684  TEMP=XRPI  1(1  B*  I*J1 ) 

5704  XRPI 1 ( IB* I. J1)=XRPI 1(IB» J* J1 ) 

5724  144  XRPI 1 ( I B* J* J 1 ) = TEMP 

5744  150  CONTINUE 

5764  DO  160  1=1*9 

5784  JL  = 1 + 1 

5804  DO  1 55  J = JL*  1 0 

5824  IF( (XRPI l ( IB, I, 2)-XRPI 1( IB. J* 2) ) . GT. 10. ) GO  TO  160 

5844  IF(XRPI 1 ( I B* i* 3) .GT.XRPI 1 ( I B* J* 3) ) G0  TO  155 

5864  DO  152  Jl  = 1*  4 

5884  TEMP=XRPl 1 ( I B* I * J 1 ) 

5904  XRPI 1(IB*I*J1)=XRPII(IB*J»J1) 

5924  152  XRPI 1(IB*J*J1)=TEMP 
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59 44  155  CONTINUE 

59  64  160  CONTINUE 

598  4 180  CONTINUE 

6004  RETURN 

6024  200  PRINT* "RUNWAY  REQUIREMENTS  EXCEED  AVAILABLE  TABLE  SPACE" 

6044  PRINT* "PROGRAM  ABORT" 

6064  STOP 

6084  600  F0RMAT<  5X1 3) 

6104  601  FORMAT( 5X3A4/5X3E13. 6/5X3E13. 6/5X3E13. 6) 

6124  602  F0RMAT< 1 XA  4) 

6144  603  FORMATt 1X"NAS--"A4/3X"TYPE  A/C"4X"AI RSPACE"3X"0LF • S"/ 

6164  &16X "FACTOR "2X"REQUI RED") 

6184  604  F0RMATC5XA4*  7XF5.2*  4XF5.2) 

6204  END 


X.  PROGRAM  PARTY 


PROGRAM  DESCRIPTION 

1 / 

10.1  PROGRA • • If  any,  records  then 

cost,  and  computes  resulting  deficiency-  n taxi  wavs  and  run  wa-  lighting. 

: . ■ Fpoi  tering  tolei  jth  is  set  ft  e , 10  f t> 

and  two  alpha  variables  are  initialize  1 for  later  printouts.  The  user  is  ask’  d 
if  he  wants  to  skip  the  printouts  an  i th»  resulting  decision  is  stored  in  SKFP. 

Then  GTOTAL,  the  total  system t co;  t,  is  initialize  i to  zero. 

10.3  The  program  first  checks  to  sc  which  : ises  are  in  ise.  for  those  in 
use  , two  tnhles  which  will  eont  a in  r axiw  v req  nr  ■ m nts  in  1 runway  1 lght  i ng 
requirements  are  initialized  to  zero.  N-  Kt , th<  runways  available  and  requir 
are  printed  if  the  print  oDtion  ■ selected  md  the  runway  table  pointers  (i.e., 
internal  indice  ),  I,J,  in  init  it  ?<  : to  1 . 

10.4  Th(  • m xt  nor'  >n  of  thi ind  1 

thej^1  require  I runway  with  the  length  and  thickness  of  the  Ith  available 
runway.  When  the  length  of  the  jth  i ailable  runway  is  less  than  the  tolerance 
value,  i.e.,  a value  less  than  th<  tolerance  of  10  ft,  no  more  runways  are 
available  at  the  base  un  ier  consi  ieratton  and  the  program  branches  to  the 
"build  new"  computations. 

10.5  If  the  length  requirement  ] is  less  than  500  ft  and  the  available  runway 
length  I is  greater  than  500  ft,  the  aircraft  is  a helicopter  and  it  is  assumed 
that  there  are  no  runway  deficits. 

10.6  If  the  length  and  thickness  required  are  less  than  or  equal  to  available, 

the  program  branches  to  the  amount  comparison  computations.  If  requirements  exceed 


This  program  constitutes  part  of  the  Runway  Submodel  discussed  in  Appen- 
dix H of  Volume  II . 
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ivail  ill.'  assets,  the  existing  runway  cons  idem- 1 is  upgraded  to  meet  the 
requirements  and  the  resulting  taxiways  and  run  wav  lighting  requirements  are 
compute  i.  Finally,  the  upgra  ling  cost  is  compute  1 and  the  construction 
information  is  place  j in  TAB!  I'. 

2/ 

10.7  The  next  portion  of  the  program  is  the  amount-comparison  computation.  - 
[f  th  ivailable  runway  considered  (as  determine  I by  the  pointer  I)  does  not 
meet  the  consi  lered  amount  re  ante  i (..  determine  d by  the  pointer  J)  , the  pointer 
for  the  available  table  is  advance  i and  the  program  transfers  back  to  compare 
ngth  in  1 ' ; less  req  i r ents  igainst  ivailabW  issets . If  the  requirement 
is  bass  than  the  available  amount,  the  excess  is  recorded,  the  requirements 
table  pointer  is  advanced,  an  i the  excess  is  applio  1 to  the  next  requirement. 

• m poin hich  new  runways  are  required,  l.e.,when  i iilabl< 

runways  arc  exhausted  and  requirements  remain,  the  program  tests  ITF.ST  to 
see  whether  it  is  positive  or  negative.  As  each  new  runway  is  built,  the  sign 
changes . ITF.ST  positive  or  negative  indicates  primary  or  crosswin  i runway 
.oic.tn;  -tion,  re:  pectively . The  resulting  taxiway  and  runway  lighting  require- 
ments are  then  computed.  Finally,  the  construction  cost  is  computed. 

10.9  When  all  requirements  have  been  met  if  there  are  no  deficiencies,  then 
the  computations  procee  ! to  the  next  base  after  a "no  runway  deficits"  printout 
prints  under  the  print  option.  Under  the  print  option,  the  deficits  ( if  any)  are 
printed  in  tabular  form  and  the  user  has  the  option  to  delete  any  construction 
requirements  made  in  the  program.  He  also  has  the  choice  at  this  point  to  return 
to  constrain  T.SR  output.  A Yes  response  transfers  control  within  the  program 
to  PART8;  a No  response  causes  the  computations  to  continue.  The  runway 
investment  costs  are  then  summe  1 and  accumulated  into  the  total  systems  cost. 

19.10  Once  all  bases  have  been  processed,  the  total  runway  investment  cost 
is  printe  I and  control  transfers  to  PARTS  . 

10.11  A flow  chart  of  PROGRAM  PARTY  is  shown  in  Figure  10.  Table  27  contains 

»ry  of  i ••  ; the  program  dictionary  is  provided  in 

Table  28.  The  program  listing  is  shown  in  Table  29. 


number  of  pure  runways  required. 
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FIGURi:  10.  PROGRAM  PARTY  1’LOW  CHART 


FIGURE  9.  PROGRAM  PAR'1'4  FLOW  CHART 


MF 


» 


TART.E  2 7 

PROGRAM  PARTY  VARIABLE  DICTIONARY  * 


location 

Variable 

Name 

Dimension 

Type 

Description 

PARTY 

TOL 

1 

F 

Runway  length  tolerance , ft 

PARTY 

TYPE 

2 

A 

Runway  types 

PARTY 

I SKIP 

1 

I 

Print  option  switch 

PARTY 

IOP 

1 

A 

Terminal  Yes-No  response 

PARTY 

STABLE 

10 

F 

Taxiway  requirements  table 

PARTY 

RTABLE 

10,2 

F 

Runway  requirements  table 

PARTY 

ITEST 

1 

I 

Primary-crosswind  runway 
switch 

PARTY 

KTABLE 

1 

I 

Table  index 

PARTY 

A 

1 

F 

Amount  of  available  runway 

PARTY 

R 

1 

F 

Amount  of  required  runway 

PARTY 

LR 

1 

F 

Required  runway  length 

PARTY 

LA 

1 

F 

Available  runway  length 

PARTY 

TR 

1 

F 

Thickness  factor  for  required 
runway 

PARTY 

TA 

1 

F 

Thickness  factor  for  available 
runway 

PARTY 

AL 

1 

F 

Runway  length  actual 

PARTY 

MT 

1 

I 

Thickness  factor  actual 

PARTY 

DL 

1 

F 

Additional  runway  length 

PARTY 

COCOST 

9,12 

F 

Cost  of  1 sq  yd  of  runway 
composition  J,  thickness  I 

PARTY 

THCOST 

2,9 

F 

Thickness  factor  for  costing 
runway  of  composition  1 , 
thickness  I 

For  common  variables,  see  the  variable  dictionary  for  PART2  , Table  18. 
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PROGRAM  PARTY  PROGRAM  DICTIONARY 


PARTY  Computes  runway,  taxiway,  and  runway  lighting  deficiencies 


i 

i 

I 

i 

I 
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TART  V.  29 

PROGRAM  PARTY  LISTING 

10011  COMMON  I YEAR, I SWTCH(  1 0) 

10031  COMMON  ACREQC9,  21  ),  TBASC9),  TNASC9),  BPHC9,  25),  ASHC25,  3), 

10051  AACFHC9,  1 5), T0FFC9),  TENLC9  ),  TSTUC 9 ) , PNASEC 9 ) , SI C 25)  , TCI VC9), 

10071  ASOC  25) , FUREQ( 9, 3), PHPER(9, 5),NBUSEC9), RWC25,  3,  3), 

1009  1 41  AC T( 25, 3),ACN0  1C25, 3 > , TOFF  1 C 2 5) , EM T 1 ( 2 5) 

10111  COMMON  I ATYPEC21 ), ACAC21 ), ACB(21 ), ACCC21 ), ACDC21 ), 

10131  AAHMC21 ) , ACM (21), ASM  1 C 21 ), ASM2C21 ) , BC  2 1 , 3 ) , RN  WYL  C 2 1 ), 

10151  ARLOADC  2 1 ),  COM  PC  21 ), FLCST(21 ) , AOMC  2 1 ) , CN AAC C 2 1 ) 

10171  COMMON  NASN AM C9),ADC9), PF C 9 , 3 ) , EL ( 9, 3 ) , CUC  9 ) , I BEDC9 ), PEEC9), 

1019  1 &PREC9  ),  P0C9  ),  PSC9),  PI  EC9), TSC9),  TH  ( 9 ) , TNOFFC  9 ) , TNENLC9), 

10211  ATNCI VC9), ATCFC9), WRC9,2), TENACC9, 6) , PERFACC 9 ) , EM ESC  9) 

10231  COMMON  FAC0STC5O, 6) 

10251  COMMON  FAPW C 6 ) , APC 4, 3 ) , GWTABC 3 ) , FAMESSC 7, 2 ) , EXCH C 1 0, 2 ) , 

1 0271  4FAEMC8,  2),  TANK  SC  1 5),  TAXI  TOC  3) 

10291  COMMON  I CO DESC 50) , I DESC 50, 3 ) , RPI C 50, 9, 2 ) , I UN  I TSC 50 ) , 

10311  &XRPI 1 C9, 10, 4)»XRPI2C3,9) 

10331  COMMON  BRC 50, 9 ) , XBR 1 C 9, 1 0, 4) , X BR2C 3, 9 ) , DEFC 50, 9 ) , 

10351  &XDEF2C9),XDEF3C2, 9 ),XDEF4C  3,  1 5, 9 ) , TEX C 50, 9 ) , 

10371  ANCAT, I YES, NO, I COM, GTO TAL, NPH 

10391  DIMENSION  TABLEC 1 0, 4) , TYPEC 2) , THCOSTC 2, 9 ) , STABLEC 1 0) 

10411  &,C0C0STC9»2), RTABL  EC  1 0, 2 ) 

10431  REAL  LR,  LA 

10451  ALPHA  TYPE, IOP, NO, I YES 

10471  DATA  THCOST/6. , 1 1 . , 6.,  1 4. , 7. , 1 6. , 8. , 18 . , 9 .,  19. , 1 0. , 23. , 

10491  410. ,24.,  10. ,28.,  12. ,35./ 

10511  DATA  CO CO ST/ 10.84, 10. 8 4, 1 1.83, 12.06, 13*89, 13.89, 1 4.33, 15. 66, 

10  531  4 1 6.95,  4. 65,  5. 53, 6 . 40,  7 . 28 , 7 . 98, 8 . 2 7, 8 . 57,  10.32,  12.  40/ 

10551  TOL  = 10. 

10571  TYPEC 1 )=MMAIN" 

10591  TYPEC  2)  = '*XWND" 

10611  PRINT,  MD0  YOU  WANT  TO  SKIP  RUNWAY  REQUIREMENTS  OUTPUT  CY»N)" 

10631  I SK I P=0 

10651  5 INPUT, IOP 

10671  IFCI0P.EQ.IYES)GO  TO  7 

10691  IFCI0P.EQ.N0)GO  TO  8 

10711  PRINT, "INVALID  REPL Y- - RETYPE" 

10731  GO  TO  5 

10751  7 I SK I P= 1 

10771  8 IFCISKIP.EQ.O)PRINT, "RUNWAY  REQUIREMENTS  BY  BASE:" 

10791  GT0TAL=O. 

I 


[ 
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10811 
10831 
10851 
1087  1 
10891 
10911 
10931 
10951 
10971 
10991 
11011 
11031 
1 1051 
11071 
11091 
11111 
11131 
11151 
11171 
11191 
11211 
11231 
1 1251 
11271 
11291 
11311 
11331 
1 1351 
11371 
11391 
11411 
11431 
11451 
11471 
1 1 49  1 
11511 
11531 
1 1551 
11571 
11591 
I 161  I 
11631 
11651 
11671 
11691 


D0  500  I B=  1 , 9 

IFCNBUSEC IB) • EQ. 0) G0  T0  500 
X DEF2C I B)  = 0. 

IFCISKIP.EQ.O)PRINT  600,NASNAM( IB) 

D0  10  1=1,10 
STABL EC  I ) = 0. 

RTABLEC  I,  1)  = 0. 

RTABLEC  I,2)=0. 

IF  CXRPI 1 (IB, I, 1> .LE. .OO5)G0  T0  20 
M = IFIX(XRPI 1C  IB, I, 3 > + .005) 

10  IFCISKIP.EQ.OIPRINT  60 1 , C X RPI 1 C I B, I , J ) , J= 1 , 2 > , M 
20  IFC ISKIP.EQ.O)PRINT  602 
D0  30  1=1,10 

I FCXBR1 C I B, I, 1 ) .LE. .005) G0  T0  40 
M=IFIXCXBR1 Cl B, I, 3)+. 005) 

30  IF(ISKIP.EQ.O)PRINT  60 1 , C XBR 1 C I B, I , J ) , J= 1 , 2) , M 
40  I TEST=- 1 
KTABLE=  1 
1=1 
J=  1 

A=XRP1 1 C IB, I, 1 ) 

R=XBR 1 C I B, J, 1 ) 

LR=XBR1  C IB,  J,  2) 

TR«XBR1 C I B, J, 3)- . 005 
50  LA=XRPI 1 C IB, I , 2) 

IFCLA-T0L)  130,  55,  55 
55  TA=XRPI 1CIB, I,3)+.01 

IFCCLR.LT. 500.). AND. CLA.GE. 500. ))G0  T0  400 
60  IFC CLR.LE. CLA+T0L) ) .AND. C TR.LE. TA) ) G0  T0  90 
MA=I FIXC  TA) 

MR=IFIX(TR-*.005) 

AL  = AM  AX  1 (LR,LA) 

MT=MAX0CMA, MR) 

I FC  I SKIP.  EG.  0)  PRINT  603,  LA,  AL,  MA,  MT 
K2=IFIX(XBR1 ( IB, J, 4) ♦.005) 

K1=IFIX CXRPI 1CIB, I, 4) +.005) 

DL  =LR-LA 

IFCDL.LT. T0L)G0  T0  65 
NS  1 = 1 

IFCLR.GT.TAXIT0C 1))NS1=2 
IFCLR.GT.TAXI TOC  2) ) NS  1 = 3 
NS2=  1 

IFCLA.GT.TAXI T0C 1 ) )NS2=2 
IFCLA.GT. TAXI T0C2) )NS2=3 
NS=NS I-NS2 
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TART  R 29  (Oont) 


11711  DN  = 0. 

11731  IFCNS.GE. 1 )DN=FL0ATCNS) 

1 1751  STABLECKTABLE>=DN*27187.  + 54375. 

1 1771  IFCI.EQ. 1 ) STABL  E( K TABL  E)  = STABL  EC  K TABL  E)*75»*DL 

11791  STABL E( K TABL E)= STABL EC K TABL E)/9. 

11811  65  G0  T0  C70*80)*K 1 

11831  70  C0ST=CDL*C0C0STCMT,  1 > + . 8 4*  C THC0STC 1 * MT > - THC0STC 1,MA))* 

11851  4LA)*C2. /90. )* .95 

1187  1 G0  T0  8 5 

11891  80  C05T=(LA*< . 70+. 65*C THC0 STC 2, MT) - THC0STC 2, MA > ) )+ 

119  11  &DL+C0C0STCMT*  ?"> ) * C 2./90. ) * • 95 

1 1931  RTABL ECKTABLE*2>  = RTABL ECK TABL E*  2 > + 1 . 

11951  85  IFC I SKIP.EQ.O)PRINT  6O4*C0ST 

11971  TABLE  CK  TABLE* 1)=FL0ATCI >+.005 

11991  TABL ECK TABLE*  2>=LR 

12011  TABL ECK TABLE*  3> = FL0 ATCMT) ♦ . 005 

12031  TABLECKTABLE*  4)  = C0ST 

12051  RTABL ECKTABLE* 1 ) = RTABLEC K TABL E* 1>+DL 

12071  KTABLE=KTABLE+ 1 

12091  90  EX=A-R 

12111  100  IFCEX.LT. O)G0  T0  120 

12131  J=J+1 

1215’  IFCJ.GE. 1 1)G0  T0  400 

12171  R=XBR 1 C IB* J* 1 ) 

12191  IFCR-.01)  400*400*110 

12211  1 1 0 EX=EX-R 

12231  LR=XBR1 C IB* J* 2) 

12251  TR=XBR1 C I B* J* 3) 

12271  IFCLR.LT. 500. )G0  T0  400 

12291  G0  T0  100 

12311  120  R= - EX 

12331  1=1*1 

12351  IFCI.GE. 1 1)G0  T0  550 

12371  A = XRPI 1 Cl B* I*  1 ) 

12391  IFCA-.01)  130*130*50 

12411  130  I TEST=- I TEST 

12431  I WR= 1 

12451  IFC ITEST.GT.OJG0  T0  140 

12471  I WR=2 
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1249  1 
1251  1 
12531 
12551 
12571 
1259  1 
1261  1 
12631 
12651 
1267  1 
1269  1 
1271  1 
12731 
12751 
12771 
1279  1 
12811 
12831 
12851 
12871 
1 289  1 C 
12911 
12931 
12951 
12971 
1299  1 
13011 
13031 
13051 
13071 
1309  1 
13111 
13131 
13151 
13171 
13191 
1321  1 
13231 
13251 
13271 
1329  1 


1 40  MT=IFIXCTR+.005> 

IFC I SKIP. EG. 0) PRINT  60S* TYPEC I WR)*XBR1 C I B* J*  2>»M 
A=WRC IB* IWR) 

LA=LR 

TA*TR 

K1=IFIXCXBR1CIB*J* 4)  ♦ • 005) 

RTABL  EC  K TABLE*  1 ) = RTABLEC K TABL E*  1 )+LA 
RTABLEC  KTABLE*2>  = RTABLECK  TABLE*  2) +2. 

IFCK1.EQ. 1)G0  T0  150 
C0ST=LR*C0C0STCMT*2)*C2./9O. >*.95 
G0  T0  160 

1 50  C0ST=LR*C0C0STCMT* l)*C2./90.)*.95 
1 60  NS  1 = 1 

IFCLR.GT. TAXI T0C 1 ) )NS1=2 
IFCLR.GT. TAXI T0C2) )NS1=3 
DN=FL0AT(NS1 ) 

STABL  EC  KTABL  E)  = 37500** DN* 18  6250. 

IFC  I .EQ.  1 >STABLECKTABLE)  = STABLECKTABLE)«-75.*LR 
STABL EC KTABL E> = STABLECK TABL E> /9 . 

G0  T0  8 5 

DETERMINE  IF  DEFICITS  WILL  BE  MADE  UP 

400  IFCKTABLE.EQ. 1 )G0  T0  450 
KHI =KTABL  E- 1 
IFCISKIP.EQ. 1)G0  T0  440 

PRINT* "SUMMARY  0F  RUNWAY  UPGRADE/C0NSTRUCTI  0N” 
PRINT  606 

00  410  K= 1*  KHI 

1 VAl  = 1 F1XC  TABL  EC  K*  3)  ♦ • 005) 

410  PRINT  607*K* TABLECK* 2>* I VAL* TABLECK* 4) 

PRINT*"  WILL  THESE  DEFICITS  BE  MADE  UP  CY*N>" 

415  INPUT*  I0P 

IFC I0P.EQ. I YES)  G0  T0  440 
IF  CI0P.EQ.N0)  G0  T0  420 
PRINT*"  INVALID  REPLY-- RETYPE” 

G3  T0  415 

420  PRI N T* "D0  Y0U  WISH  T0  CONSTRAIN  LSR  OUTPUT  CY*N>" 

421  INPUT* I0P 

IFCI0P.Efl.IYES) CHAIN  "PARTS*" 

IFC I0P.EO.N0)G0  T0  422 
PRINT* "INVALI D REPLY- -RETYPE" 

G0  T0  421 
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I 


13311 
13331 
13351 
13371 
1339  1 
13411 
13431 
1 3451 
1347  1 
1 349  1 
1351  1 
1 3531 
1 3551 
1 357  1 
1 359  1 
13611 
1 363  1 
13651 
1367  1 
1369  1 
13711 
13731 
13751 
13771 


TABT.T  29  (Conti 

422  PRINT,"  WHICH  RUNWAYS  WON’T  BE  BUILT  0R  UPGRADED" 
PRINT,"  ENTER  A NUMBER  FR0M  PRECEDING  TABLE--" 
PRINT,"  TYPE  0 (ZERO)  WHEN  FINISHED" 

425  INPUT, I VAL 

IF  CIVAL.EQ.O)  G0  T0  440 
TABLEC I VAL, 4)  = 0. 

430  PRINT,"  NEXT--" 

G0  T0  425 
440  D0  445  K=  1 , KH I 

I F ( TABLECK,  4)  - . 00  5)  445,  44  5,  442 
442  GT0TAL=GT0TAL+TABLE(K, 4) 

XDEF2C I B)  = X DEF2< I B)  + STABL  EC  K ) 

X DEF  3 C 1 , I B)=XDEF3C  1 , I B)+RTABLE(K»  1 ) 

X DEF  3 < 2,  IB) = X DEF3C  2, I B) +RTABLECK, 2) 

I VAL= I FIX  C TABLEtK,  1 ) ) 

IF  CXRPI 1 ( I B, I VAL, 2) .LT. TABLECK, 2) ) 

&XRPI  1 C I B,  I VAL, 2)  = TABLECK, 2) 

I FCXRPI  1 C IB,  I VAL,  3)  .LT.  TABLECK,  3 ) ) XRPI  1 C I B,  I VAL,  3) 
& = TABLECK,  3) 

445  CONTINUE 
GO  TO  500 

450  IFC ISKIP.EO.OIPRINT,"  N0  RUNWAY  DEFICITS" 

500  CONTINUE 
PRINT, " 


I 

I 


1 3 79  1 
13311 
13831 
1 33  51 
13871 
1 389  1 
13911 
1 393  1 
13951 
13971 
1 399  1 


550 


600 


TOTAL  RUNWAY  INVESTMENT  FOR  CURRENT  YEAR  CTH0US.) 
PRINT  603, GT0 TAL 
CHAIN  "PARTS*" 

PRINT,"  MAX  NO.  0F  RUNWAY  TYPES  EXCEEDED" 

PRINT,"  PROGRAM  ABORT" 

STOP 

FORMATC // 1 X "NAS- - "A  4/ IX "A VAIL ABLE: "/ 

A 1 X "AMO IJN T LENGTH  THICKNESS") 

601  FORMATC  1XF5. 2,  2XF6. 0,  4X12) 

602  FORMATC 1X"REQUI RED: "/1X"AM0UNT  LENGTH 

603  FORMATC 1X"UPGRADE:  LENGTH : "F6. 0, 1X"T0 
& 1 X"TH I CKNESS:  "16,  1 X"T0  "16) 

"COST:  "F8. 0,  " CTH0US.)") 

•BUILD  NEW  "A4"J  LENGTH:  "F6. 


THI CKNESS") 
"F  6. 0/ 


1 401  1 

604 

FORMATC 

1 4031 

605 

FORMATC 

1 4051 

606 

FORMATC 

1 4071 

607 

FORMATC 

1 409  1 

608 

FORMATC 

14111 

END 

0, 


THICKNESS:  "12) 


LENGTH  THICKNESS  COST  CTHOUS.)") 


I 

I 

I 

I 

I 

I 

I 
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XI.  PROGRAM  PART 5 


i 

i 


| 

i 


I 

I 

I 

I 

I 


PROGRAM  DESCRIPTION 

11.1  PROGRAM  PARTS-^  computes  facilities  requirements  based  on  base  loading 
data  and  the  phase  allocation  established  in  PART3  . In  addition,  the  level  of 
print  detail  for  the  remaining  programs  is  recorded. 

11.2  Upon  entering  PART5,  the  facilities  requirements  table  is  set  to  zero  and 
the  user  is  asked  to  supply  the  level  of  print  detail,  which  is  stored  in  ISWTCH(9). 
Then,  for  all  bases  in  use,  each  facility  requirement  is  computed,  one  after  anoth- 
er.using  the  equations  described  in  the  annex  to  Appendix  D,  Volume  II.  After  all 
the  computations  are  made,  control  transfers  to  PARTX. 

11.3  A flow  chart  of  PROGRAM  PART5  is  shown  in  Figure  11  . Table  30  contains 
the  variable  dictionary  of  PROGRAM  PART5;  the  program  dictionary  is  provided  in 
Table  3]  . The  program  listing  is  shown  in  Table  32. 


1/ 


This  program  is  essentially  the  Facilities  Requirements  Submodel  discussed  in 
Volumes  I and  II . 
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f nter  f rom 
PARTY 


. : 


8‘ 1 


I 


I 


TABLE  30 

PROGRAM  PART 5 VARIABLE  DICTIONARY* 


Location 

Varia  bio 
Name 

Dimension 

Type 

Description 

PART  5 

TW 

9 

F 

Parking  apron  taxiwidth  at  base  I 

PART  5 

ICHOICE 

1 

I 

Print  level  input  from  terminal 

PART  5 

PHASP 

1 

F 

Phase  and  tenant  personnel 

PART  5 

NTRAP 

1 

1 

First  pass  test  switch 

PART  5 

IP 

1 

I 

Integral  number  of  parked  air- 
craft per  column 

PART  5 

T 

1 

F 

Residual  column  length  in 
parking  apron 

PART5 

C 

1 

F 

Number  of  columns  of  parking 
apron  required  for  a type  air- 
craft 

PART  5 

IS 

1 

1 

Variable  C rounded  to  next 
higher  integer 

PART  5 

V 

1 

F 

Parking  apron  width  uncorrected 

PARTS 

IV 

1 

I 

Corrected  parking  apron  width, 
multiple  of  75  ft 

PART  5 

CONI 

1 

F 

Temporary  storage 

PART  5 

OH 

1 

F 

Hangar  modules  required 

PART  5 

QC 

1 

F 

Crew  and  equipment  modules 
required 

PART  5 

QS1 

1 

F 

Basic  shop  modules  required 

PART5 

QS2 

1 

F 

Supplementary  shop  modules 
required 

PART5 

TK 

1 

F 

QH  rounded  up  to  next  integer 

PARTS 

TC 

1 

F 

QC  rounded  up  to  next  integer 

PARTS 

TS1 

1 

F 

QS1  rounded  up  to  next  integer 

PARTS 

TS2 

1 

F 

QS2  rounded  up  to  next  integer 

PART5 

PWP 

1 

F 

Public  works  personnel 

* For  variables  in  common,  see  the  variable  dictionary  for  PART2  , Table  18. 
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TABLE  31)  (Conti 


Location 

Variable 

Name 

Dimens  ion 

Type 

Description 

PARTS 

WSA1 

1 

F 

Warehou.  e space  required  i^r 
aii  craft 

PARTS 

WSA2 

1 

F 

Shed  space  required  for  aircraft 

PARTS 

WSP1 

1 

F 

Warehouse  space  required  for 
personnel 

PARTS 

WSP2 

1 

F 

Shed  space  required  for 
personnel 

PAR  T5 

FAEMC 

8,2 

_ F 

Equivalent  to  FAEM** 

See  Table  1 8 . 

AO-A043  664 


UNCLASSIFIED 


OPERATIONS  RESEARCH  INC  SILVER  SPRIN6  MO  F/9  5/1 

DEVELOPMENT  of  a preliminary  Automated  total  systems  mooel  FOR  — ETC(U) 
FEB  70  T N KYLE*  R 0 HEILBRON*  J D AVILA  N0002S-67-C-0031 


0RI-TR-B63-V0L-4 


NL 


TABLi:  32 


PROGRAM  PART 5 LISTING 


1005  COMMON  I YEAR* I SWTCH( 1 0) 

1015  COMMON  ACREQ(9*21 ) * TBAS( 9 ) * TNAS( 9)*BPH(9*25)*ASH(25*3>* 

1025  AACFH(9* 15)*  TOFFC  9 ) * TENL ( 9 ) * TSTU( 9 ) * PNASE( 9 ) * SI ( 2 5) » TCI V( 9)* 

1035  4S0(25)*FUREQ(9»  3)*  PHPER(9*  5) , NBU3EC 9 ) * RW( 25*  3*3)* 

1045  4IACT(25*  3)*ACN01  (25*  3)  * TOFF  1 ( 25)  * EMT1  ( 25) 

1055  COMMON  IATYPE(21)*ACA(21)*ACBC21)*ACC(21)*ACD(21)* 

1065  AAHM( 21)*  ACM( 21)*  ASM  1(21)*  ASM2( 21)*A(21*3)*RNWYL(21)* 

1075  4RL0AD( 2 1 ) * C0MP( 2 1 > * FLCST( 2 1 ) * A0M( 2 1 ) » CNAAC ( 2 1 ) 

108  5 COMMON  NASN AM (9)*AD(9)*  PF (9, 3)*EL(9*  3) * C U( 9 ) * I BED( 9 ) * PEE( 9 ) * 

109  5 APRE(9)*P0(9)*PS(9)*PIE(9)»  TS(  9 ) * TH  ( 9 ) * TN0FF(  9 ) * TNENL  ( 9 ) * 

1 105  ATNCIV(9)*ATCF(9)*WR(9*2)*  TENAC( 9* 6) * PERFAC( 9 ) * EM ES( 9 ) 

1115  COMMON  FACOSTt  50*  6) 

1125  COMMON  FAPW(  6)*  AP(  4*  3) * GWTAB( 3)*  FAMESS( 7*2)*  EXCH ( 1 0*  2) * 

1135  4FAEMC(  8*  2)  * TANKS(  1 5)*  TAXI  TOO) 

1145  COMMON  ICODES( 50)* I DES( 50* 3)*RPI ( 50*9*2)* I UNI TSC 50)* 

1155  4XRPI  1(9*  10*  4)*XRPI2(3»9) 

1165  COMMON  BR(50*9)*XBR1(9* 10*  4)*  XBR2( 3*9)*  DEF( 50* 9)* 

1175  AXDEF2(9)*XDEF3(2*9)*XDEF4(3*  1 5* 9 ) * TEX ( 50* 9 ) » 

1 185  4NCAT*  IYES*N0*  IC0M*GTOTAL*NPH 

1195  DIMENSION  TW(9) 

1205  ALPHA  I YES*  NO* I COM 

1215  DATA  TW/9+150./ 

1225  DO  5 1 = 1*50 

1235  DO  5 J= 1*9 

1245  5 BR( I * J)  = 0 • 

1255  PRINT*” 


WHICH  LEVEL  OF  PRINT  DETAIL” 

1265  PRINT* ”TYPE  1 FOR  TOTAL  SYSTEMS  COST  (TSC)  ONLY” 

1275  PRINT*"  2 FOR  TSC  * DETAILED  FACILITIES  EXCESS-DEFICIENCY" 

1285  PRINT*"  3 FOR  TSC  * NAS  COST  SUMMARIES  ONLY" 

1295  PRINT*"  4 FOR  TSC  4 FACILITIES  DEFICITS  4 NAS  COST  SUMM." 

1305  PRINT*"  5 FOR  CHOICE  OF  DETAILS  (IF  DESIRED)" 

1315  7 INPUT* ICHOICE 

1325  IF(ICH0ICE.LT. 1 ) GO  TO  8 

1335  ISWTCH(9)=ICH0ICE 

1345  GO  TO  9 

1355  8 PRINT* "INVALI D REPLY-- RETYPE" 

1365  GO  TO  7 

1375  9 DO  500  NB=1*9 

1385  I F (NBUSE(NB) ) 1 0*  500*  1 0 

139  5C 113-20  PARKING  APRON 
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TABLE  32  (Cont) 


1405  10  V» 0. 

1415  PHA5P=TBAS< NB) -TNAS(NB) 

1425  NTRAP-0 

1435  D0  30  J»l#2l 

1445  IF<ACREQ(NB*J)-. 01)30*30# 1 1 

1455  11  I F(NTRAP) 1 5# 1 2# 1 5 

1465  12  G0sACD< J) 

1475  NTRAP-1 

1485  15  IFCACD< J)-G0) 16# 17# 17 

1495  16  G0*ACD( J ) 

1505  17  IFCACC<J).LT..01)PRINT*MACC<J)»0  FOR  J » "#J 

1515  P*AD<NB)/ACC( J) 

1525  IP=P 

1535  T»(P-FL0AT( IP) >*ACC< J) 

1545  IF<  T-ACB< J) ) 25#  20*  20 

1555  20  IP«IP«-1 

1565  25  C*ACRE0<NB# J)/FL0AT< IP) 

1575  IS*0.99 

1585  V»V+<ACA(J)  + ACD(J))*FL0ATf  IS) 

1595  30  CONTINUE 

1605  V*V- GO 

1615  IV*CV/75.)+.99 

1625  AW»75«*FL0AT( I V) 

1635  BR(28#NB)s(AW+2.*TW<NB))*(AD<NB)-’-2**TW<NB)>/9. 

1645  BRC l#NB)=AW9AD<NB)/9. 

1655  BR<27,NB)«BR<28#NB)-BR< 1*NB) 

1665C 125-40  DISTRIBUTION  PIPELINE 

1675  BRC2#NB)».001375*PHASP 

1685C 141-40  AIRCRAFT  OP  BUILDING 

1695  BR(3*  NB) * 1 69  56* 

1705C -171-10  ACADEMIC  BUILDING 

1715  CONI =0* 

1725  D0  50  Jb 1 # 25 

1735  C0N2*BPH(NB# J) 

1745  I F( C0N2- *01) 50*  50#  40 

1755  40  C0NlsC0Nf*SI CJ)*(ASH<J# D+ASHCJ* 2)+ASH( J# 3) )*<C0N2/CU(NB) ) 

1765  50  CONTINUE 

1775  IF(CUCNB)-. 01)60# 60# 55 

1785  55  CONI »C0N 1*TS<NB)9C  TH<NB)/CU(NB)) 

1795  60  BR( 4#NB)*C0N 1*75» 

1805C 211-10  MAINTENANCE  HANGAR 

1815  OH«0. 


1 

TABLE  32  (Cont) 

1835 

QS1=0. 

1845 

QS2=0. 

1855 

D0  100  J“ 1*20 

1865 

C0N1-ACREQCNB*  J) 

1875 

IFCC0N1-.01 )80*80*  70 

1885 

70 

9H=QH+C0Nl/AHMCJ) 

1895 

QC=QC+C0N1/ACMCJ) 

1905 

QS1=QS1*C0N1/ASM1CJ) 

1915 

QS2=QS2+C0N1/ASM2< J) 

1925 

80 

CONTINUE 

1935 

TK=IFIXCQH+.99) 

1945 

TC=IFIXCQC*.99) 

1955 

TSl=IFIXCQSl+»99> 

1965 

TS2=IFIXC9S2+.99) 

1975 

BR<  S« NB> = 1 3698 .*TK  + 8 450.*< TS  H-TS2) ♦ 1 0400.  * C TC*  . 5) 

1985C- 

219-10  PUBLIC  WORKS  MAINTENANCE  SHOP 

1995 

PWP=75»  77  67  3*  » 04 459* PH ASP  ' 

2005 

I FC  PWP- 1 00. >82*8  2*  85 

2015 

82 

BRC6*NB)=CC PWP- 100. )/100.  >*FAPWC 1 » 

i 

2025 

GO  TO  110 

1 

2035 

85 

DO  90  1 = 2*6 

2045 

K=  I 

2055 

CON  1 =FLOATC K )♦ 1 00. 

2065 

IFC  PWP-C0N1 ) 100*  100*90 

2075 

90 

CONTINUE 

208  5 

100 

BRC6*NB)=CCPWP-C0N1+ 100. > / 1 00. ) * C FAPWC K ) - FAPWC K- 1 >>+FAPWCK- 1 ) 

209 5C- 

*•••« 

442-10  WAREHOUSE 

2105 

1 10 

WSA 1 =0* 

2115 

WSA2-0. 

2125 

DO  120  J* 1 * 20 

2135 

C0N1=ACRE9CNB«J) 

2145 

IFC  CONI -.01)  120*  120*  1 15 

2155 

115 

WSA 1 = WSA 1 ♦CON  1 * AC J* 1) 

2165 

WSA2=WSA2+C0N1*ACJ*2) 

2175 

120 

CONTINUE 

2185 

CON  1 = TBASC  NB) 

2195 

IFCC0N1-GWTABC 1)) 125* 125* 130 

2205 

125 

WSP 1 =C0N 1 *APC 1 * 1) 

2215 

WSP2=C0N 1 * APC 1*2) 

2225 

GO  TO  155 

2235 

130 

WSP1 =GWTABC 1 ) *APC 1* 1) 

2245 

WSP2=GWTABC 1 )*APC  1*2) 

\ 

1 

2255 

IFC  CON 1-GWTABC2)) 135*  135*  140 
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TABLE  32  (Cont) 


2265  135  C0N2»C0N 1 -GWTABC 1 ) 

2275  WSP1 = WSP 1 ♦ CBN 2* APC  2# 1 ) 

2285  WSP2«WSP2+C0N2*APC 2*  2> 

2295  G0  T0  155 

2305  140  WSP1=WSP1+CGWTABC2)-GWTABC 1)>*APC2* 1) 

2315  WSP2*WSP2+C  GWTABC  2) -GWTABC 1>>*APC2*2) 

2325  IF( CBN  1 -GWTABC  3) ) 145* 145* 150 

2335  145  C0N2=C0Nl -GWTABC  2) 

234S  WSP1  = WSP1-*,C0N2*APC  3*  1) 

2355  WSP2=WSP2+C0N2*APC  3*  2) 

2365  G0  T0  155 

2375  150  C0N2*C0N 1 -GWTABC  3) 

2385  WSP1=WSP1*C  GWTABC  3) - GWTABC  2)  ) *APC  3* 1 > +C0N2+APC  4* 1) 

239  5 WSP2=WSP2+  C GWTABC  3) - GWTABC  2) )*APC  3*  2) +C0N2*APC 4*2) 

2405  155  BRC7#NB)*1 • 0 18*C  WSA 1 ♦ WSP 1 ) 

2415  BRC29*NB)«1.015*CWSA2*WSP2> 

2425  BRC30*  NB)»BRC7#NB)+BRC  29*NB> 

2435C 550-10  DISPENSARY 

2445  K=I BEDC  N8)  ♦ 1 

2455  C0N1=2.5*CP0CNB>*T0FFCNB>+PSCNB>*TSTUCNB)>+T0FFCNB>*TSTUCNB> 

2465  4+2.5*TENLCNB)*CPEECNB)*PRECNB>«-PIECNB>-PEECNB>*PIECNB) ) 

2475  GO  TO  C 1 60* 170)#K 

2485  160  CBN  1 >3*  08* CBN I 

2495  BRC8#NB) *AMAX 1 CCBN 1*  38 50* ) 

2505  GB  T0  175 

2515  170  CBN 1*3*69 6*C0N  1 

2525  BRC 8*  NB) *AMAX 1 C CBN  1 * 4620*  > 

2535  175  CONTINUE 

2545C 610-10  ADMIN  OFFICES 

2555  BRC9*NB)*162.*TBASCNB)*PERFACCNB> 

2565C 711-10  FAMILY  HOUSING 

2575  BRCIO#NB)«PEECNB>*PRECNB>*TENLCNB)+P0CNB>*  TBFFCNB)*PSCNB>* 

25854  TSTUCNB) 

2595C 000-00  INELLIGIBLE  ENLISTED  HOUSING 

2605  BRC26»NB)*C 1 • -PEECNB) )*TENLCNB)*PI ECNB) 

261  5C 722-10  ENLISTED  MENS  BARRACKS 

2625  BRC 1 l*NB)*TENLCNB)*C 1 . -PEECNB)*PRECNB> -C 1 . -PEECNB) >*PI ECNB) > 

2635C 723-10  ENLISTED  MENS  MESS 

2645  C0N1«EMESCNB)*BRC 1 1*NB) 

2655  D0  200  I»l#7 

2665  K* I 

2675  IFCC0N1-FAMESSC I* 1 ) >21 0*  21 0* 200 

2685  200  CONTINUE 
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TARLE  32  (Cont) 


2695  210  BRC 12#NB)=C0N1*FAMESSCK#2) 

2705C 724-10  B0Q 

2715  BRC 1 3*  NB) = T0FFCNB)* C 1 . -P0CNB) ) ♦ TSTUCNB)*C 1 . - PSCNB) ) 

2725C 740-14  EXCHANGE 

2735  C0N 1 =TBASC NB)-TCIV(NB) 

2 7 45  I FC C0N 1 - EXCH  C 1*  1 )) 260* 260* 270 

2755  260  BRC 1 5* NB ) = C CON  1 /EXCH C 1* 1))*EXCHC 1*2) 

2765  G0  T0  320 

2775  270  00  300  1=2# 1 0 

2785  K= I 

279  5 I FC  C0N 1 - EXCHC I » 1 ) ) 3 1 0*  3 1 0*  300 

2805  300  CONTINUE 

2815  310  BRC 1 5»NB)  = CC0N1-EXCHCK-1* 1 ) )/CEXCHCK#  1 )-EXCHCK- 1*  1) )* 

2825  AC EXCH  CK#  2) -EXCHCK- 1*2))  + EXCH C K- 1 * 2) 

2835C 740-63  SERVICE  CLUB 

2845  320  I FC  TENL  CNB) -FAEMCC 1#  1))330*330»340 

2855  330  BR( 1 6*NB)  = C TENL ( NB) /FAEMCC 1*1) )* FAEMCC 1*2) 

2865  G0  T0  370 

2875  340  00  350  1=2*8 

2885  K= I 

2895  I FC TENL CNB) -FAEMCC I# 1 )) 360# 360# 350 

2905  350  CONTINUE 

2915  360  BRC 1 6* NB ) = ( TENL C NB) - FAEMCC K- 1* 1 )) /C FAEMCCK#  1 ) - FAEMCCK- 1 # 1>> 

2925  **C FAEMCCK* 2) -FAEMCCK- 1*2)) ♦FAEMCCK- 1*2) 

2935C 81  1-60 

2945  370  CONTINUE 

2955C 812-30  ELECTRIC  DISTRIBUTION  LINE 

2965  BRC 18#NB)=54.9*PHASP 

2975C 832-10 

298  SC 842-10 

2995  BRC20#NB)=-76370.+40.5*PHASP+104.8*TSTUCNB) 

3005C 851-10  ROADS 

3015  BRC21*NB)=-1 1 • 5+ • 022 4* C TENLCNB) -PNASECNB) ) 

3025C 852-10  PARKING  AREA 

3035  BRC  22*  NB)  = • 1 55*C TENL CNB) -PNASECNB) >** 1 . 824 

3045C 124-30  READY  FUEL  STORAGE 

3055  DO  400  1-1*3 

3065  400  XBR2CI#NB)*CPFCNB* I )/365.)*C l.+ELCNB* I ))*FUREQCNB#  I ) 

3075  500  CONTINUE 

3085  I SWTCHC  7 > * 1 

3095  CHAIN  **PARTX*M 

3105  END 
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XII.  PROGRAM  PARTX 


PROGRAM  DESCRIPTION 

12.1  PROGRAM  PARTX  serves  the  purpose  of  providing  a restart  procedure 
within  the  total  IFRS  system  flow.  As  a result,  at  any  subsequent  point,  the 
user  can  initiate  use  of  the  IFRS  model  with  the  computations  in  PART6  without 
having  to  repeat  all  the  previous  computations  . 

12.2  The  file  RESTART  is  opened  and  rewound,  and  all  variables  in  common 
are  written.  Then  control  is  transferred  to  PART6 . 

12.3  A flow  chart  of  PROGRAM  PARTX  is  shown  in  Figure  12.  Table  33  refer- 
ences the  variable  dictionary  of  PROGRAM  PARTX;  the  program  dictionary  is 
provided  in  Table  34.  The  program  listing  is  shown  in  Table  35. 
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FIGURE  12 


Transfer  to 
PART6 


. PROGRAM  PARTX  FLOW  CHART 
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TABLE  33 

PROGRAM  PARTX  VARIABLE  DICTIONARY* 


* See  the  common  variable  dictionary  for  PART2 , Table  18. 
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TABLE  35 


PROGRAM  PARTX  LISTING 


10000 
1 0010 
10020 
10030 
10040 
1 0050 
10060 
10070 
1 0080 
1009  0 
10100 
101  10 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 


COMMON  IYCAR* ISWTCHC 10) 

COMMON  ACREQC 9*21)#  TBASC 9 ) * TNASC9)*BPHC9* 25)* ASHC 25#  3) * 
4ACFHC9*  15)*T0FFC9)»  TENL  C9)*TSTUC9)*PNASEC9)*SIC25)*TCIVC9)* 
4S0C25)*FUREQC9*3)*  PH PER C 9* 5)*NBUSEC9)*  RWC25»3*3)* 

41  ACT C 25*  3 ) * ACNO 1(25* 3)  * T0FF1 C 2 5 ) * EMT 1 (25) 

C0MM0N  IATYPEC21 ) * ACAC 2 1 ) * ACBC 2 1 )* ACCC21 )* ACDC21 ), 

4AHMC  2 1)*ACMC21)*ASM1C21)*  ASM2C 21)>A(21>3)> RNWYL C 2 1 ) * 
ARL0ADC21)*C0MPC21)*FLCSTC21)*  A0MC  21)*  CNAACC  2 1 ) 

C0MM0N  NASNAMC9)*ADC9)*PFC9*3)*ELC9*3)*CUC9)*IBEDC9)*PEEC9)* 
4PREC  9 ) * P0C9 ) * PSC  9 )*PIEC9)*TSC9)*THC9>*  TNOFF  C 9 ) * TNENLC9)* 

ATNC IVC9)*ATCFC9)*WRC9*2)*TENACC9* 6)* PERFAC(9 )*  EMESC9 ) 

C0MM0N  FAC0STC  50/ 6) 

COMMON  FAPWC  6) * APC 4*  3 ) * GW TAB C 3 ) * F AMES SC 7*  2)*  EXCHC 1 0* 2), 
4FAEMC8*  2)*  TANKSC  1 5).  TAXI  TOO) 

COMMON  I CODESC  50)  * I DESC  50*  3) * RPI C 50*  9#  2)*IUNITSC50)* 

4XRPI 1 C9* 10*  4) *XRPI 2(3*9) 

COMMON  BR(50*9)*XBR1(9* 1 0* 4) , XBR2C3* 9 > * DEFC 50* 9 ) * 
AXDEF2C9)*XDEF3C2*9)*X  DEF  40*  1 5*  9 ) * TEX  C 50*  9 ) * 

ANCAT* I YES* NO* I COM* GTO TAL* NPH 
ALPHA  I YES*  NO*  I COM 
OPENFILE  "RESTART" 

REWIND  "RESTART" 

WRI TEC "RESTART") I YEAR*  C I SWTCHC I ) * I- 1 * 1 0) * C < ACREQC J* K )* J=  1 * 9 ) * 
4K*1*21 )*CTBASCL)*  TN ASCL ) ^TOFFCL ) * TENL CL ) * TSTUCL ) * PNASECL)* 
ATCIVCL)*NBUSECL)*L* 1*  9 ) * C C BPHCM*  N) » M=  1*9)*  N=  1*25) 

WRI TEC "RESTART") C C ASHC I* J)* I» 1*  25)* J»l*  3)*  C C ACFHC K* L ) * K= 1*9)* 
AL«1* 15)*CSICM)*S0CM)*  TOFF  1 C M) * EMT1 CM)*M= 1*25) 

WRI TEC "RESTART") C C FUREQC I*J)*I=1*9)*J=1*3)*CC  PHPERCK*  L) * K = 1 * 9 
A)*L“1»5)»CCI ACT CM*  N ) * ACNO 1 C M*  N ) * M* 1*25)*N» 1*  3) 

WRI TEC "RESTART") C C C RWC I*J*K)*I=1*25)*J=1*3)*K*1*3)*CIATYPECL) 
A* ACACL)*ACBCL), ACCC L ) * ACDCL ) * AHMCL)* ACMCL)* ASM1 CL)* ASM2CL)* 

A RNWYL  CL ) * RLOADCL ) * COMP CL )*FLCSTCL)*  AOMCL ) » CNAACCL )*L-1*21)* 
ACCACM»N)*M«1*21)*N«1*3) 

WRI TEC "RESTART") CNASNAMC I ) * ADC I)*CUCI)*IBEDCI)*  PEEC I ) , 
APRECI)*P0CI)*PSCI)*PIECI)*TSCI)*THCI)*TNOFFCI)»  TNENL  Cl), 
ATNCIVC I )*  ATCF  Cl)*  PERFACC I ) * EMESC I)*I»1*9)*CCPFCJ»K)*ELCJ»K)* 
AJ*1*9)*K»1*3)*CCWRCL*M>,L*1*9)*M=1*2) 

WRI TEC "RESTART") C C TEN ACC I*J)*I=1»9)*J=1*6)* C C FACOSTC K* L ) * K* 
Al*  50)*L«1*  6)*  CFAPWCM)*M= 1*  6) 

WRI TEC "RESTART") C C APC I*J)*I*1*4)*J=1*3)*CGWTABCK)*K=1*3)* 

A C C F AMESSCL*  M),L=1*7)*M«1*2) 

WRI TEC "RESTART") CCEXCHCI*J)*I=1* 1 0) * J» 1 * 2) * C C FAEMCK.L ) , 
AK=1*8)*L*1*2)*C TANKSC  M) * M* 1 * 1 5) * C TAXI T0CN)*N* 1 * 3) 


TABLE  3 5 (Cont) 


10430 
10440 
10450 
1 0460 
10470 
1 0480 
10490 
10500 
10510 
10520 
1 0530 
1 0540 
10550 


WRI  TEC "RESTART") C I C0DESC  I ) , I UN  I TSC  I ) , I = 1 , 50)  , C C I DESCJ,K), 

AJ= 1*  50),K= 1 * 3), C ( ( RPI CL*  M,N ' .L= 1, 50), M= 1, 9),N  = 1, 2) 

WRI  TEC "RESTART" ) C C (XRPI  1C  I»  J>K)»  1=  1*9)>J=1>  1 0) » K = 1#  4)  » 
ACCXRPI2CL#M)»L=1#3)#M=lr9) 

WRI  TE<  ••RESTART")  ( CBRC  1,  J),  1 = 1, 50)  » J=l»9>»  C ( C XBR  I(K»LjM)< 
*K=1#9)»L= 1 , 10)»M= 1*  4) 

WRI TEC "RESTART") C < DEFC I > J ) * TEXC IiJ),I=l»50)*J=1.9)» C CXBR2CK.L 
4),K=1.3)»L=I»9), CXDEF2CM), M= 1,9) 

WRI TEC "RESTART") C CXDEF3C I»J),I=1,?),J=1,9)#C C CXDEF  4CK>L»M)> 

&K  = 1>  3),L  = 1>  1 5 ) » M= 1#9)*NCAT> I YESiNb> IC0M, GT0TAL#NPH 
CL0SEFILE  "RESTART" 

CHAIN  "PART6*" 

END 


xrrr.  program  part6 


PROGRAM  DESCRIPTION 

13.1  PROGRAM  PART6  — ^ compares  existing  assets  with  the  facilities 
requirements  computed  in  PART5  . If  desired,  the  resulting  excesses  or 
deficiencies  are  printed,  along  with  the  available  assets  and  requirements 
for  each  base. 

13.2  Upon  entering  PART6,both  1SWTCH(7)  and  ISWTCH(9)  are  stored  so 
that  the  reading  of  file  RESTART  does  not  destroy  any  alterations  in  the  print 
detail  level  that  can  be  made  in  PART9  . The  file  RESTART  is  read  and,  if 
necessary,  the  updated  print  level  is  recorded.  The  user  then  specifies 
whether  he  wishes  to  accept  substandard  facilities.  A Yes  answer  still 
allows  the  choice  to  be  made  for  each  base;  a No  response  is  fixed  for  all 
bases . 

13.3  The  following  procedure  is  completed  for  each  base.  For  each  facility 
requirement  stored  in  the  facilities  requirements  array  BR,  a comparison  is 
made  with  existing  assets.  Any  excesses  noted  are  stored  in  TEX,  deficiencies 
in  DEE.  Certain  facilities  (numbers  1,  7,  27,  29)  are  subtotals  and  the  excess 
or  deficiency  is  not  meaningful  for  these  categories.  Thus,  TEX  and  DEE  are 
set  to  zero  for  these  facilities.  2/  Transfer  is  then  made  to  Subroutine  SUB4  . 
This  subroutine  computes  ready  fuel  storage,  converting  any  deficits  into 
number  of  tanks  by  using  the  tank  sizes  in  the  table  TANKS. 


— /This  program  is  the  Excess/Deficiency  Submodel  discussed  in  Volumes  1 and  11. 

Data  were  not  available  at  the  subtotal  level  for  these  facilities  in  the  Assets 
Position  Data  File. 
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13.4  The  procedure  used  in  determining  total  tank  requirements  is  to  Dick 
the  largest  tank  size  which  does  not  exceed  the  deficit  storage  by  more  than 
half  the  smallest  tank  size.  One  continues  to  add  tanks  oi  the  same  or  smaller 
size,  always  abiding  by  this  criterion  and  always  reducing  the  deficit  until 

the  deficit  is  eliminated.  A deficit  of  less  then  50  gal  is  ignored.  The  number 
of  needed  tanks  of  any  one  size  is  stored  in  array  XDEF4  . Once  all  deficits 
are  corrected,  the  routine  branches  back  to  the  main  program. 

13.5  Depending  on  the  level  of  print  detail,  the  user  gets  no  orintout  or 
a printout  of  deficiencies  only  or  has  a choice  of  getting  the  total  excess/ 
deficiency  table  for  the  base  considered.  Included  aje  the  runway  lighting 
and  taxiway  deficiencies  (if  any)  that  were  previously  computed  in  PARTY. 

13.6  After  printing  the  complete  excess/deficiency  table,  the  next  base  is 
considered.  After  all  bases  are  considered,  control  is  transferred  to  PART 7 . 

13.7  A flow  chart  of  PROGRAM  PART6  is  shown  in  Figure  13.  Table  36 
contains  the  variable  dictionary  of  PROGRAM  PART6;  the  program  and  subroutine 
dictionary  is  provided  in  Table  37.  The  program  listing  is  shown  in  Table  38. 
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TABLE  36 

PROGRAM  PART6  VARTABT.E  DICTIONARY 


Location 

Variable 

Name 

Dimension 

Type 

Description 

PART6 

I ARRAY 

50 

I 

Order  of  print  for  facilities 

PART  6 

I SAVE 

1 

1 

Temporary  storage 

PART  6 

I KNOW 

1 

1 

Temporary  storage 

PART6 

IOP 

1 

A 

Terminal  Yes-No  response 

PART6 

lOPl 

1 

I 

Standard- substandard  accept- 
ance indicator 

PART  6 

!OP2 

1 

T 

Same  option  for  all  bases 
indicator 

PART6 

NSKIP 

1 

I 

First  pass  through  indicator 

PART6 

TEA 

1 

F 

Total  existing  assets 

PART6 

TEMP 

1 

F 

Temporary  storage  of  excess 
or  deficiency 

PART6 

I.  SKIP 

1 

I 

Unused 

PART  6 

JSKIP 

1 

I 

Deficiency- no  deficiency 
indicator 

PART6 

VAL 

1 

F 

Adjusted  value  for  printing 

SUB4 

T 

3 

F 

Total  excess  or  deficiency  for 
ready  fuel  storage,  type  1 

TABLE  37 


PROGRAM  PART 6 PROGRAM  AND  SUBROUTINE  DIGT1 ONARY 


PART6  Reads  restart  file  and  computes  facility  excess/deficiency 

SUB4  Computes  ready  fuel  storage  excess/deficiency 
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TABLE  3 8 


1006 
1016 
1026 
1036 
1046 
1 056 
1066 
1076 
1 08  6 
1096 
1 106 
1116 
1 126 
1 136 
1 1 46 
1 156 
1 166 
1 176 
1 186 
1 196 
1206 
1216 
1226 
1236 
1246 
1256 
1266 
1276 
128  6 
1296 
1 306 
1316 
1326 
1336 
1 346 
1356 
1366 
1376 
138  6 
1396 
1 406 
1416 
1 426 


PROGRAM  PART 6 TJSTTNC 

COMMON  I YEAR* I SWTCHC 10) 

COMMON  ACRE6K9,  21  ),  TBASC  9 ) , TN AS(  9 ) * BPH  ( 9,  25)  , ASH ( 25,  3), 

4ACFH (9* 1 5),T0FF(9),  TENL( 9),TSTU(9),PNASE(9),SI(25),TCI V( 9), 
4S0(25),  FUREGK9,  3),  PHPER(9, 5),NBUSE(9),RW(25, 3,  3), 

4 1 AC  T(  25,  3)  » ACNO  1 <25*  3)  * TOFF  1 ( 25)  , EMT1  ( 25) 

COMMON  I ATYPEC  21  ) , ACA(  2 1 ),  ACB(21  ), ACC(21  ) , ACD( 2 1 ) , 

4AHMC21  ),  ACM(21  ) , ASM  1(21),ASM2(21),A(21,3),RN  WYL  (21)# 

4RL0AD(  2 1 ) , COMPC 2 1 ) , FLC STC 2 1 ) , AOMC 2 1 ) , CNAAC ( 2 1 ) 

COMMON  NASN AM<  9),AD(9),PF(9, 3),EL(9,3),CU(9),I BED( 9 ) , PEEC 9 ) , 
4PRE(9), P0(9 ), PSC9), PI EC9),  TS(9),  TH(9>,  TN0FF(9), TNENL(9), 
4TNCIV(9),ATCF(9),WR(9,2),  TEN AC ( 9 , 6)  , PERFAC  C 9)*  EMES( 9 ) 

COMMON  FACOSTC  50,  6) 

COMMON  FAPW(  6), AP(  4, 3)  , GWTAB( 3)  , FAMES SC 7, 2),  EXCHC 1 0*  2), 
4FAEM(8,  2 ) , TANK  S(  1 5)  , TAXI  TOC  3) 

COMMON  I C0DES( 50), I DESC  50, 3), RPI ( 50,  9, 2) , I UN  I TS( 50) , 

4XRPI 1(9, 10, 4) , XRPI 2( 3, 9 ) 

COMMON  BR(50, 9),XBR1(9, 10, 4) , XBR2( 3, 9 ) , DEF( 50, 9 ) , 

4XDEF2(9), XDEF3C  2,9),XDEF4(3,  1 5,  9 ) , TEX(  50,9), 

4NCAT, IYES, NO, ICOM, GTOTAL,NPH 
DIMENSION  I ARRAY (50) 

ALPHA  IYES, NO, 1 COM, 1 OP 

DATA  I ARRAY/  1 , 27,  28,  2,  3,  4,  5,  6,  7,  29,  30,8,9,  1 0,  26,  1 1,  12,  1 3, 

41  4,  1 5,  1 6,  17,  18,  19,20,21,22,23,24,2  5,20*0/ 

ISAVE=ISWTCH(9) 

I KNO W= I SWTCH  < 7 ) 

OPENFILE  "RESTART" 

REWIND  "RESTART" 

READ  ("RESTART") I YEAR, (I SWTCH ( I ), 1=1, 10), < CACREQ(J,K),J= 1,9), 
4K= 1 , 2 1 ) , (TBAS(L),TNAS(L>, T0FF(L ) , TENL (L ) , TSTU(L), PNASE(L), 
4TCIVCL),NBUSECL),L= 1,9), C C BPH ( M, N ) , M= 1,9),N= 1,25) 

READ  ("RESTART") ( (ASHC I , J), 1 = 1,25), J= 1,3), ((ACFH( K,L),K=  1,9), 
4L  = 1 , 15), (SI (M),S0CM), T0FF1 CM), EMT1 (M),M= 1,25) 

READ  ( "RESTART") (CFUREGK  I, J), I=1,9),J=1, 3), ( ( PHPER( K , L ) , K= 1,9 
4),L= 1, 5), ( ( I ACT(M,N), ACN01 (M,N),M= 1, 25),N= 1, 3) 

READ  ("RESTART") (( (RW( I, J,K), 1= 1, 25),  J= 1, 3),K= 1, 3),  ( I ATYPE(L) 
4,  ACA(L),  ACB(L), ACC(L), ACD(L), AHM(L), ACM(L), ASM1 (L), ASM2CL), 
4RNWYL(L),RL0AD(L),C0MP(L),FLCST(L), AOM(L),CNAAC(L),L= 1,21 ), 

4( (A(M,N), M= 1,21 ),N= 1,3) 

READ  ("RESTART") (NASN AM( I > , AD( I ) , CU( I ), IBEDC I ),  PEEC  I ), 

4PRE( I ) , P0( I ),PS(I ), PIE( I ), TS( I ), TH( I ), TN0FF( I ) , TNENL ( I ) , 

4TNCI V( I ) , ATCF ( I ) , PERFACC I ) , EMES( I),I=1,9)»((PF(J,K)»EL(J,K), 
4J=1,9),K=1,3), ( (WR(L,M),L= 1 » 9 ) , M* 1,2) 

READ( "RESTART")  ( ( TENAC( I, J), 1=1, 9), J= 1,6), (( FACOSTC K, L ), K = 


20-1 


I 
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1 436  Al,  50),L* 1, 6),  <FAPWCM),M= 1, 6) 

1446  READ  <"RESTART"XCAP<I,J),I*|,4),J=1,3),(GWTAB<K),K=1,3), 

1 456  A(  <FAMESS<L,M),L= 1 , 7>,M= 1,2) 

1466  READ  <"RESTART"X(EXCH<I,J),I=1,10),J=1,2),\(FAEM(K,L)» 

1 47  6 AK=1,8),l=1,2), ( TANKS! M) , M=  1 , 1 5> * ( TAX  I T0CN ) , N= 1 * 3 > 

1486  READ  ( "RESTART") (IC0DES<I),IUNITS(I),I=1,5O),(<ID£S(J,K), 

1 496  4J=1, 50),K= 1, 3), < <CRPI(L,M,N),L» 1, 50),Ms 1,9),N* 1,2) 

1506  READ  C"RESTART")< < (XRPI 1 Cl, J,K>, 1 = 1,9)* J*l, 1 0),K  = 1* 4), 

1516  *<<XRPI2<L,M),L=1,3),M«1,9) 

1526  READ  C "RESTART") < < BRC I , J ) * I = 1 , 50 ) * J= 1 * 9 ) , C ( < X BR 1 C K, L, M ) , 

1 536  4K=1,9),L=1, 10),M*1,4> 

1 546  READ  ( "RESTART" X < DEF( I , J > , TEX ( I , J > , I = 1 , 50),J* 1,9), < (XBR2(K,L 

1 556  A),K  = 1,3),L= 1,9), (XDEF2<M),M* 1,9) 

1566  READ  < "RESTART") ( (XDEF3C I , J) , 1= I , 2) , J= 1 , 9 ) , C C CX DEF4CK, L, M) , 

1576  *K=1,3),L»1, 1 5),M* 1,9).NCAT, IYES,N0, IC0M, GT0TAL, NPH 

1586  CL0SEFILE  "RESTART" 

159  6 IFUKN0W.EQ.  I ) I SWTCH < 9 )« I SAVE 

1606  I F<  ( I SWTCH ( 9 ) • E0. 1 ) • 0R • ( 1 SWTCH <9)»EQ»3))G0  T0  15 

1616  PRINT  600 

1626  15  PRINT  601 

1636  16  INPUT  602, I0P 

1646  IF(I0P.EQ.IYES)G0  T0  25 

1656  IF(I0P.EQ.N0)G0  T0  35 

1666  25  1 0P1  a 1 

1676  G0  T0  40 

1686  30  PRINT  603 

1696  G0  T0  16 

1706  35  I0P1-O 

1716  G0  T0  45 

1726  40  PRINT  604 

1736  INPUT  602, I0P 

1746  IFCI0P.NE.IYES)G0  T0  50 

1756  45  I0P2* 1 

1766  G0  T0  60 

1776  50  IFCI0P.NE.N0)G0  T0  30 

1786  55  I0P2«O 

1796  60  D0  150  IB»1,9 

1806  NSKIP-O 

1816  IF(NBUSE(IB>)80, 150,80 

1826  80  D0  100  L*1,NCAT 

1836  IF<BR<L, IB>-.5) 100, 100,84 

1846  84  TEX(L,IB)>0. 

1856  DEFCL, IB)>0. 
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1866 
1876 
1886 
1896 
1906 
1916 
1926 
1936 
1946 
1956 
1966 
1976 
1986 
1996 
2006 
2016 
2026 
2036 
2046 
2056 
2066 
2076 
2086 
2096 
2106 
2116 
2126 
2136 
2146 
2156 
2166 
2176 
2186 
2196C 
2206 
2216 
2226 
2236 
2246 
2256 
2266 
2276 
228  6 


IF(NSKIP.EQ. 1 )G0  T0  88 
NSK I P=  1 

IF( I0P2)88*85*88 
85  PRINT  60  5* NASNAM (IB) 

9 1 INPUT  602* I0P 

IF< I0P.NE. IYES>G0  T0  87 

I0P1=1 

G0  T0  88 

87  I F( I0P.NE.N0) G0  T0  93 

92  I0P1=O 
G0  T0  88 

93  PRINT  603 
G0  T0  91 

88  TEA=RPI (L*  I B»  1 ) 

I F(  I0P1  ) 9 4*  9 5*  9 4 

94  TEA=TEA+RPI CL* IB* 2) 

95  TEMP=BR<L* IB)-TEA 
I F(  TEMP ) 9 6*  100*98 

96  TEXCL* IB)=-TEMP 
G0  T0  100 

98  DEFfL* IB)=TEMP 
100  CONTINUE 

DEF  ( 1*  I B ) = 0 • 

TEX  C 1* IB)=0. 

DEF  <27, I B)  = 0 • 

TEXC27* IB)=0. 

DEF  <7* IB>  = 0. 

DEFC29* IB>=0. 

TEXC  7*  I B)  = 0. 

TEX  <29* IB)  = 0. 

CALL  SUB4CIB) 

IF< ISWTCHC9) .EQ. 1 )G0  T0  150 
I F< I SWTCH C9) • EQ»  3 ) G0  T0  150 

PRINT  OUTPUT 

PRINT  606*  NASNAMt I B) 

PRINT*"  DETAILED  EXCESS- DEFI Cl ENCY  <Y*N>" 
1 1 1 INPUT  602* I0P 

IF(I0P.EO.IYES)G0  T0  112 
IF(I0P.EQ.N0>G0  T0  150 
PRINT  603 
G0  T0  111 
1 12  PRINT  607 

D0  140  K» 1 * NCAT 


206 


T 


-n 


TABLE  38  (Cont) 


2296 
2306 
2316 
2326 
2336 
2346 
2356 
2366 
2376 
2386 
2396 
2406 
2416 
2426 
2436 
2446 
2456 
2466 
2476 
2486 
249  6 
2506 
2516 
2526 
2536 
2546 
2556 
2566 
2576 
258  6 
2596 
2606 
2616 
2626 
2636 
2646 
2656 
2666 
2676 
2686 
2696 
2706 
2716 


130 


1 40 


7 40 
750 


770 

78  0 

790 

800 


810 


1545 


I * I ARRAYCK  ) 

I F<  BR< I # IB)-. 5) 140,  140# 130 
IFC  I SWTCH ( 9 ) .L  T.  2) GO  T0  140 

IF(  < I SWTCH ( 9 ) • EG. 4) . AND. < DEF( I # I B) .L T. . 0 1 ) ) GO 
PRINT  619#  IC0DESCI)#  CIDESd#  J>#  J=1#3)#BR(I#  IB) 
ARPI  ( I # I B#  1)#RPI(I#IB#2)#TEX(I#IB)#DEF(I#IB) 
C0NTINUE 

PRINT# "TAX I WAYS  * RUNWAY  LIGHTING” 

IF<XDEF2<  IB)  .LT.  50.  )G0  T0  740 

PRINT  628#XDEF2(IB)#XDEF3< 1 # I B)  # X DEF3<  2#  I B) 

G0  T0  750 

PRINT#"  N0  DEFICIENCY" 

LSKI  P=0 
J SK I P=  0 

PRINT# "READY  FUEL  STORAGE" 

PRINT#"  REQUIRED*  < THOUSANDS  0F  GALS)" 

DO  800  I « 1 # 3 
VAL=XBR2CI# IB) 

I F( VAL  »L  T • ( TANKS< 1 )*  • 5)  > GO  TO  800 

JSKI P* 1 

VAL=VAL/1000. 

GO  TO  (770#  780#  790)#  I 

PRINT  621# VAL 

GO  TO  800 

PRINT  622# VAL 

GO  TO  8 00 

PRINT  623# VAL 

CONTINUE 

IF(JSKIP.EQ.O)PRINT#"  NO  REQUIREMENT" 

JSKIPaO 

PRINT#"  AVAILABLE*" 

DO  810  I * 1 # 3 
VAL*XRPI 2< I# IB)/IOOO. 

IF( I .EQ. 1 )PRINT  62 1 # VAL 
IF(I .EQ.2)PRINT  622# VAL 
IF(I.E0.3) PRINT  623# VAL 
CONTINUE 
DO  1550  1= 1#  3 
DO  1550  J-l# 15 

IF(XDEF4(I# J, IB) -.01 ) 1550# 1550# 1545 
IFCJSKIP.EQ* l ) GO  TO  1546 
JSKI P* 1 

PRINT#"  DEFICIENT" 


TO  140 
# I UNI TS( 


)# 
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2726 
2736 
2746 
2756 
2766 
2776 
2786 
2796 
2806 
28  1 6 
2826 
2836 
28  46 

28  56 
2866 
2876 
288  6 
2896 
2906 

29  1 6 
2926 
2936 
2946 
2956 
29  66 
2976 
2986 
2996 
3006 
3016 
3026& 
3036 
3046 
3056 
3066 
3076 
308  6 
3096 
3106 
31  16 
3126 
3136 
3146 
3156 
3166 
3176 
3186 


PRINT  624 

1546  VAL=TANKSC J)/ 1 000. 

GO  TO  C 1 547, 1 548, 1 549). I 
1 547  PRINT  625.XDEF4C I » J. IB).  VAL 
GO  TO  1550 

1548  PRINT  626.XDEF4CI.J. IB).  VAL 
GO  TO  1550 

1 549  PRINT  627.XDEF4C  I . J.  IB)*  V/AL 
1550  CONTINUE 

IFCJSKI P.EQ. 0)PRINT. " NO  DEFICIENCY" 

150  CONTINUE 

IFC I SWTCH<9) «LE. 3) GO  TO  200 
PRINT  608 
1 57  INPUT  602. IOP 

IFC IOP.EO. I YES) GO  TO  15 
IFC I0P.EO.N0) GO  TO  200 
165  PRINT  603 
GO  TO  157 

200  CHAIN  "PART7*" 

600  FORMATC 1X25HEXCESS  DEFICIENCY  PROGRAM) 

601  FORMATC"  ACCEPT  SUBSTANDARD  FACILITIES  CY.N)") 

602  FORMATC  A 1 ) 

603  FORMATC IX. "INVALID  REPLY--TRY  AGAIN") 

604  FORMATC IX. "SAME  OPTION  FOR  ALL  BASES  CY.N)") 

605  FORMATC IX. "ACCEPT  SUBSTANDARD  FOR  ".  A4.  6H  CY.N)) 

606  FORMATC /IX. "NAS--". A 4) 

607  FORMATC 1 8X"REQUI RED" 1 0X"AVAI LABL E"9X"P0SI TI ON"/"  CODE" 

A2X" DESCRIPTION  AMOUNT  UNIT  STAND.  SUB-STAND.  EXCESS" 
A2X"DEFI Cl  ENT") 

619  FORMATC  1 XI  5.  1 X3A4.  F8 . 0.  1XA2.  4C  1XF8.0)  ) 

1XF8.0. 1XF8.0. 1XF8.0. 1XF8.0)) 

608  FORMATC 1X51HD0  YOU  WISH  TO  MODIFY  THE  SUBSTANDARD  OPTION  CY. 
6)  ) 

621  F0RMATC3X, "JET  ".8XF7.1) 

622  FORMATC 3X. "AVGAS".  7XF7. 1) 

623  FORMATC  3X, "HELO".  8XF7. 1 ) 

624  FORMATC 2X. "NO.". 4X. "SI ZE". 2X. "TYPE") 

625  FORMATC 1 XF 4. 0. 2XF7 . 0. IX. "JET") 

626  FORMATC 1 XF4. 0. 2XF7 . 0. IX. "AVGAS") 

627  FORMATC 1 XF 4. 0. 2XF7 . 0. IX. "HELO") 

628  FORMATC 1X"TAX I WAY  DEFI Cl T". 2XF8 . 0. 2X. "SY"/ 1 X 
*"RUN  WAY  LIGHTING  DEF I Cl  Ts  "2XF8 . 0.  2X"LFl  "3X.  F 4.  0. 

*"APPR0ACH  SYSTEMS") 

629  FORMATC 8 18) 

630  FORMATC 5E1 3. 6) 

631  FORMATC 15A4) 

END 
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3196  SUBROUTINE  SUB4(IB) 

3206C READY  FUEL  STORAGE  EXCESS  AND  DEFICIENCY 

3216  DIMENSION  T(3) 

3226  COMMON  I YEAR# I SWTCH ( 10) 

3236  COMMON  ACREQ( 9# 2 1 ) # TBASC 9 ) # TNASf 9 ) # BPH ( 9# 2 5) # ASH ( 2 5# 3> # 

3246  4ACFH(9# 1 5 ) # T0FF( 9 ) # TENL ( 9 ) # TSTUC 9 ) # PN ASE ( 9 ) # SI ( 25) # TCI V( 9 ) # 

3256  4S0(  25) # FUREOC  9#  3)  # PH PER ( 9# 5) # NBUSE( 9 ) # RW( 25#  3#  3)# 

3266  41  ACT(25#  3) # ACN0 1(25#  3) » TOFF  1 ( 25) # EMT 1 < 2 5) 

3276  COMMON  I ATYPE( 2 1 ) # ACAC 2 1 ) # ACB( 2 1 ) # ACC( 2 1) # ACDC 2 1 ) # 

328  6 4AHM(21 )# ACM(21 )# ASM1 (21 )#ASM2(21 )# A(21#  3 > # RN WYL ( 2 1 ) # 

3296  4RL0AD( 2 1 ) # COMP( 2 1 ) # FLCST( 2 1 ) # A0M( 2 1 ) # CNAAC( 2 1 ) 

3306  COMMON  NASNAM( 9 ) « AD( 9 ) » PF(9#  3)#  EL(9#  3)#  CU(9)» IBED(9) » PEE(9)» 

3316  4PRE(9)#P0(9)#PS(9)#PIE(9)#  TS(9>#  TH(9>#  TN0FF(9>»  TNENL(9># 

3326  4TNCI V( 9 ) # ATCF( 9 ) # WR( 9# 2) # TENAC( 9# 6) # PERFAC ( 9 ) # EMES( 9 ) 

3336  COMMON  FAC0ST(5O#6> 

3346  COMMON  FAPW( 6)# AP( 4#  3># GW TAB ( 3)#  FAME§S( 7#  2)#  EXCH( 1 0#  2) # 

3356  4FAEM(8#2>#  TANK S( 1 5># TAXI T0( 3) 

3366  COMMON  I C0DES( 50) # I DES( 50# 3> # RPI ( 50# 9# 2) # I UN I TS( 50) # 

3376  4XRPI 1(9# 1 0# 4) # XRPI 2( 3# 9 ) 

3386  COMMON  BR( 50# 9 > # XBR 1 (9# 1 0# 4) # XBR2( 3# 9 ) # DEF(  50# 9 ) # 

339  6 4XDEF2( 9 ) # XDEF3( 2#  9 ) # XDEF 4( 3# 1 5# 9 ) * TEX ( 50# 9 ) » 

3406  4NCAT# IYES# NO# ICOM# GTOTAL#NPH 

3416  ALPHA  I YES#  NO# I COM 

3426  NB= I B 

3436C COMPARE  EXISTING  CAPACITY  VS  REQUIREMENTS 

3446  DO  10  I s 1 # 3 

3456  10  T(I)»XRPI2(I#NB)-XBR2(I»NB) 

3466  DO  16  I * 1 # 3 

3476  DO  15  J=l#  15 

348  6 1 5 XDEF 4(I#J#NB)“l«E-6 

3496  16  CONTINUE 

3506C FIND  NUMBER  OF  TANKS  IN  TABLE 

3516  DO  20  J*l#  15 

3526  JSUP*J-1 

3536  I F( TANK  S(J)-»01 )25#2  5#20 

3546  20  CONTINUE 

3556  JSUP-15 

3566C COMPUTE  NO.  OF  TANKS  REQUIRED  BY  FUEL  TYPE 

3576  25  DO  50  I»l#3 

3586C IF  DEFICIENCY  LT  50#  FORGET  IT 

3596  IF(T(I>*50.)30#50#50 

3606  30  DO  35  J"1#JSUP 
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3616 

K=J-  1 

3626 

C=TC I ) + TANK  S( J ) 

3636 

I F<  C ) 35* 38*  38 

3646 

35 

CONTINUE 

3656 

K= JSUP 

3666 

36 

XDEF4C I,K*NB>=XDEF4< I*K*NB>+ 1 . 

3676 

T(  I > = TCI  ) + TANK  SOO 

3 68  6 

G0  T0  30 

3 69  6 

38 

IF0039*  39*  43 

3706 

39 

K = 1 

3716 

40 

XDEF4C I « K * NB ) = X DEF  4C I*K*NB>+ 1 . 

3726 

G0  T0  50 

3736 

43 

I F(  C~  ( TANK  SC  l)/2.))44*  44*3  6 

3746 

44 

K = K+  1 

3756 

G0  T0  40 

3766 

50 

CONTINUE 

3776 

RETURN 

3786 

END 
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XIV.  PROGRAM  PART  7 


PROGRAM  DESCRIPTION 

14.1  PROGRAM  PART  7-1/  computes  facility  and  aircraft  investment  costs. 

Upon  entering  PART7,  the  constant  C is  set  to  1,000  so  that  later  costs  can  be 
converted  to  thousands  of  dollars.  The  variable  TCOSTI , which  is  used  to 
accumulate  total  investment  cost,  is  set  to  zero. 

14.2  For  print  detail  levels  greater  than  2 (cptered  in  PART5),the  base 
name  is  printed  as  a heading  for  the  investment  cost  breakdown  or  base  total. 
The  investment  cost  for  each  facility  is  then  computed  where,  if  appropriate, 
control  is  transferred  to  Subroutine  SIZE  to  compute  a cost  variance  factor, 
which  depends  on  the  difference  between  the  required  and  standard  size  for  the 
particular  facility. 

14.3  For  print  level  5,  the  user  is  asked  if  he  wishes  a detailed  breakdown  of 
facility  investment  costs.  If  the  response  is  Yes,  the  breakdown  is  printed, 
including  the  facilities:  ready  fuel  storage,  runway  lighting,  and  taxiways. 
Finally,  the  base  total  investment  cost  is  displayed  (excluding  runway  costs 

at  this  time).  Also  for  print  level  5,  the  user  has  the  option  to  avoid  meeting 
all  deficits.  If  he  chooses  to  delete  certain  investments,  the  results  of  his 
decisions  are  recorded,  the  costs  subtracted,  and  the  new  base  total  investment 
cost  is  displayed.  As  the  costs  are  summed,  the  asset  position  arrays  within 
the  IFRS  system  are  updated  to  temporarily  incorporate  the  new  facilities  in 
the  array.  Once  all  bases  have  been  considered,  the  total  facility  investment 
cost  for  all  bases  is  printed.  Control  is  then  transferred  to  Subroutine  ICOSTAC 
for  the  computation  of  aircraft  investment  costs. 

77 

~ This  program  is  part  of  the  Total  Systems  Cost  Submodel  discussed  in 
Volumes  I and  II. 


14.4  In  TCOSTAO,  the  required  aircraft  are  summed  by  type  over  all  bases. 

This  total  is  then  compared  with  the  existing  aircraft  inventory.  Where  there 
are  deficiencies  , investment  cost  is  computed.  A summary  (total  deficient  air- 
craft and  total  cost)  or  detailed  print  out  (assets  position  and  costs  by 
type  aircraft)  is  printed  us  called  for  by  the  level  of  print  detail.  If  aircraft 
investment  cost  exceeds  $5,000,  the  option  is  given  to  return  to  the  LSR  Genera- 
tor to  constrain  output.  If  the  response  is  Yes,  control  is  transferred  to  PART 8; 
with  a No  response,  the  aircraft  asset  position  array  (CNAAC)  is  updated  and  the 
routine  transfers  back  to  the  main  program  where  control  is  then  transferred  to 
PART 9. 


14.5  A flow  chart  of  PROGRAM  PART7  is  shown  in  Figure  14.  Table  39  contains 
the  variable  dictionary  of  PROGRAM  PART7;  the  program  and  subroutine  diction- 
ary' is  provided  in  Table  40.  The  program  listing  is  shown  in  Table  41. 


FIGURE  14.  PROGRAM  PART7  TLOW  CHART 
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TABU:  39 


I 

PROG I3AM  PART 7 VARIABLE:  DICTIONARY 


Location 

Variable 

Name 

I iimension 

Typo 

Description 

1 

1 

PART  7 

IARRAY 

50 

I 

See  variable  dictionary  for  PART6, 
Table  36 

PART? 

TCOST 

15 

F 

Ready  fuel  tank  cost  for  size  I, 
thousands  of  dollars 

PART? 

TCOSTI 

1 

F 

Total  facilities  investment  cost 
for  all  bases 

PART? 

PCOSTI 

1 

F 

Base  total  facilities  investment 
cost 

i 

t 

PART" 

COST 

50 

F 

Investment  cost  for  facility 

1 

PART" 

NSKIP 

50 

I 

Deficiency  I met-not  met  indicator 

PART? 

Y 

1 

F 

Relative-to-standard  size  cost 
adjustment  factor 

! 

PART? 

IOP 

1 

Terminal  Yes-No  response 

r 

\ 

PART  7 

ru  MP 

1 

Detailed  cost  breakdown  indicator 

PART  7 

COST  1 

1 

Taxiways  investment  cost 

1 

PART? 

COST  2 

1 

H 

Runway  lighting  investment  cost 

PART? 

COST  3 

1 

F 

Ready  fuel  storage  investment 
cost 

i 

PART  7 

ITNK 

1 

I 

Ready  fuel  deficiency  met-not 
met  indicator 

*• 

1 

PART? 

IMOD 

1 

I 

Not-all-deficiencies  met  indicator 

m 

PART7 

NN 

1 

I 

Category  code,  input  from  terminal 

\ 

PART? 

IC 

1 

A 

Common  input  from  terminal,  used 
for  format  checks 

I 

PART7 

XX 

1 

F 

Percent  of  deficiency  to  be  met 

PART7 

TKSU  M 

1 

F 

Ready  fuel  storage  capacity 
increase  during  current  model 
year 

1 

1 

SIZE 

ICOSTAC 

X 

TOTAC 

1 

20 

F 

F 

Temporary  storage 

Total  aircraft,  type  I,  required 
for  all  bases 

ft 

1 

21-1 


I 


I COS  TAG 


TOTAC 


20 


I 


TABLE  39  (Cont) 


Location 

Variable 

Name 

Dimension 

Type 

Description 

ICOSTAC 

JUMP 

1 

I 

Detailed  or  summary  print 
indicator 

ICOSTAC 

IOP 

1 

A 

Terminal  Yes-No  response 

ICOSTAC 

DEFAC1 

1 

F 

Deficient  aircraft 

ICOSTAC 

DEFAC 

1 

F 

Total  deficient  aircraft,  all  types 

ICOSTAC 

COST1 

1 

F 

Investment  cost  for  an  aircraft 
type 

ICOSTAC 

COST  2 

I 

F 

Aircraft  support  cost  for  an  air- 
craft type 

ICOSTAC 

COST 

1 

F 

Total  aircraft  investment  for  an 
aircraft  type 

ICOSTAC 

TCOST 

1 

F 

Total  aircraft  investment  for  all 
aircraft  types 

j 

i 

4 

i 

\ 


. 
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TABLE  40 

PROGRAM  PART 7 PROGRAM  AND  SUBROUTINE  DICTIONARY 


PART  7 

Computes  and  prints  investment  costs  for  facilities 

SIZE 

Computes  standard  size  adjustment  factor 

ICOSTAC 

Computes  aircraft  deficiencies  and  investment 

cos  ts 
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TABLE  41 

PROGRAM  PART 7 LISTING 


1007 

1027 

104? 

1067 

1087 

1107 

1 127 

1 1 47 

1 1 67 

1 187 

1207 

1227 

1247 

1267 

1287 

1307 

1327 

1347 

1367 

1387 

1 407 

1427 

1 447 

1467 

1487 

1 507 

1527 

1547 

1567 

1587 

1607 

1627 

1647 

1 667 

168  7 

1707 

1727 

17  47 

1767 

1787 

1807 

1827* 

1847 

1867 

1887* 


C0MM0N  I YEAR* I SWTCHC 1 0) 

C0MM0N  ACREQ( 9*  21)*  T8ASC9 )*TNAS(9)#  BPH(9#  25)#ASH(25* 3)# 
*ACFH(9# 1 5)#T0FF(9)#  TENL( 9 ) # TSTUC  9 ) # PNASE(  9 )#SI(25)#TCIV(9)# 
AS0(25)#FUREQ(9#3)»PHPER(9» 5)*NBUSE(9)» RW(2S» 3*3)* 

*IACT(25#  3)#ACN01(25#3)#T0FF1(25)*EMT1(25) 

C0MM0N  I ATYP£<  21)#  AC At 21)*ACB(21)*  ACCC 21)*ACD(21)# 

AAHM( 21)*  ACM(  21  ) # ASM 1(21)#ASM2(21)#A(21*3)#  RNWYL ( 21  ) # 

ARL0ADC 21)#  C0MPC 21)#  FLCST(  21)#  A0M (21)#  CNAAC( 2 1 ) 

C0MM0N  NASNAM( 9 ) # AD( 9) # PF< 9# 3)#EL<9#  3) » CU( 9 ) » I BEDC 9 ) # PEE< 9 ) # 
APREC  9 )#P0(9)#PS(9)#PIE(9)#TS(9)#TH(9)#  TN0FF(  9 >#  TNENL  ( 9 ) # 
*TNCIV(9)#  ATCF( 9)#WR(9#2)#  TENAC( 9#  6) # PERFACC  9 ) # EMES( 9 ) 

C0MM0N  FAC0STC 50#  6) 

C0MM0N  FAPW<  6)# AP( 4#  3>#  GWTAB<  3)#  FAMESSC  7# 2)#  EXCH( 10#  2)# 
AFAEM(8*  2)#  TANKS(  1 5)#  TAXI  T0(  3) 

C0MM0N  I C0DES( 50) # I DES<  50#  3) # RPI ( 50#  9#  2) # I UNI TS<  50) # 

AXRPI 1(9# 10#  4) # XRPI 2( 3#  9 ) 

C0MM0N  BR( 50#  9)#  XBRl (9# 10# 4) # XBR2( 3# 9 ) # DEF( 50# 9 ) # 

AXDEF2(  9 > # X DEF3(  2#  9 ) # XDEF4(  3#  1 5#  9 ) # TEX  ( 50#  9 ) # 

4NCAT# I YES#  N0# I C0M# GT0TAL#  NPH 
DIMENSION  I ARRAY ( 50) # TC0ST( 15)#C0ST( 50)#NSKIP( 50) 

ALPHA  IYES#N0#IC0M#I0P#IC 

DATA  I ARRAY/ 1#  27#  28#  2#  3#  4#  5#  6#  7#  29#  30#  8#  9#  1 0#  26#  1 1 # 1 2#  1 3# 

*1  4#  15#  16#  17*  18#  19#  20#  2 1*22#  23#  24*  25*  20*0/ 

DATA  TC0ST/1.2*2.3*4.2*5.7#8.5*9.6#  1 4. * 1 8* # 25. * 40.  5# 

*57.# 58. *76. 5* 9 2. #102. 5/ 

C*1000. 

TC0STI =0. 

IF(ISWTCH(9) .LT.3)G0  T0  3 
PRINT  602 

3 D0  100  IBs  1*9 
PC0STI-O. 

IF(NBUSE(IB)  ) 4#  100*  4 

4 D0  5 I * 1*  50 
C0ST( I )°  0* 

5 NSKI  P(  I ) = 0 

IF(ISWTCH(9).LT.3)G0  T0  6 
PRINT  601# NASNAM( I B) 

6 C0ST( 1 )»(DEF( 1 # I B)*FAC0ST( 1* 1)*.95)/C 

C0ST(2 ) * DEF( 2# I B)*FAC0ST( 2# 1 )* 1 . O575*FAC0ST( 2#  4)*(.95/C) 

CALL  SIZE( 3* I B# Y) 

C0ST( 3)"DEF( 3# IB)*FAC0ST( 3# 1 )*Y* ( FAC0ST( 3# 2) ♦. 0575) *. 9 5* 
(FAC0ST( 3# 4)/C) 

CALL  SIZE( 4# IB* Y) 

C0ST(  4)«  DEF(  4*  I B)*FAC0ST(  4*  1 )*Y*(FAC0ST(  4#  2)  + . 0575)*.  9 5* 

( FAC0ST( 4# 4)/C) 
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tabu:  41  (com) 


1907 

1927 

1 9 47  & 
1967 
1987 
2007  4 
2027 
2047 
2067 
208  7 & 
2107 
2127 
21  47  & 
2167 
2187 
2207 
2227 
22475, 
2267 
2287 
2307 
23274 
2347 
2367 
23874 
2407 
2427 
2447 
2467 

2 43  7 
2507 
2527 
2547 
2567 
2587 
2607 
2627 
2647 
2667 
2687 
2707 
2727 
2747 
2767 


8 


CALL  SI  Z EC  5*  I B*  Y ) 

C0ST<  5 ) = DEF C 5#  I B)4FAC0STC  5, 1 >*Y*C FAC0STC 5*  2 ) + . 0575 ) * . 9 5* 

C F AC0ST ( 5* 4)/C) 

CALL  SI ZEC  6* I B*  Y ) 

C0ST C 6)  = DEF ( 6*1 B)4FAC0STC 6*  1 >*Y*CFAC0STC  6* 2)+. 0575)4.95* 
(FAC0STC6*  4)/C> 

C0STC  7 ) = DEF (7* IB>*FAC0STC  7*  1 )4CFAC0STC  7*  2)  + . 057 5) 4 C . 9 5/0 
CALL  SIZEC8* IB»Y) 

C0STC8)=DEFC8. I B ) * FAC0 STC 8 * 1 ) * Y* C FAC0ST< 8* 2 ) + . 057 5) * . 9 5* 
(FAC0STC8*  4>/C> 

CALL  SIZEC9* IB»Y) 

C0ST(9)=DEFC9*  I B) 4FAC0STC  9*  1 ) * Y*  C FAC0S  T(  9*  2 ) ♦ . 0575  ) * . 9 5* 

( FAC0ST( 9* 4 ) / C) 

C0STC  1 0)=DEFC  1 0*  I B)4FAC0STC  10*  1 )*C  .9  5/0 

C0STC  1 1 ) = DEFC  1 1, IB)*FAC0STC  1 1*  1 )*FAC0STC  1 1*  2) 4C  .9  5/0 

CALL  S I Z EC  12* IB*  Y) 

C0STC  1 2)  =DEF(  1 2*  I B ) * FAC0STC  12*  1 ) *Y*  C FAC0STC  12*2)+.  0575)4.9  5* 
C FAC0STC 12. 4)/C) 

C0STC 1 3 ) = DEFC 1 3* I B)*FAC0ST< 13* 1)*FAC0ST( 1 3* 2 ) * C . 9 5/C ) 

CALL  SI ZE( 1 5* I B*  Y) 

C0STC 1 5 ) = DEF( 1 5* I B)4FAC0ST< 1 5*  1 ) *Y4 ( FAC0ST(  1 5,  2)  + . 0575)4. 9 5* 
( F AC0ST ( 1 5*  4 ) / C ) 

CALL  SIZE( 1 6* I B* Y) 

C0STC 1 6)  = DEFC 1 6* IB)4FAC0ST( 1 6*  1 )*Y*C  FAC0STC 1 6* 2)  + . 0575)4.9 5* 
(FAC0STC 16*  4>/C> 

C0STC 1 7 ) =DEFC 1 7* I B ) 4FAC0 ST ( 17*  1 ) * 1 . 0 57  5* . 9 5* C FAC0STC 1 7*  4)/C) 
C0STC 18)  = DEF C 18* IB)*FAC0ST<  18*  1)41. 057 54 . 9 5* C FAC0S TC 18*  4) /C) 
C0STC21 )= DEFC 21, I B ) 4FAC0 STC 2 1 , 1 ) 4 1 . 057 5* . 9 5* C FAC0 STC 2 1 . 4>/C) 
C0STC22)=DEFC22*  IB)4F  AC0STC  22*  1 > 4 1 . 057 54 . 9 54 C FAC0STC 22*  4)/C) 
C0STC25)  = DEFC25* IB ) 4FAC0STC  25*  1 ) 4 1 . 05754 . 9 54 C FAC0STC 2 5*  4)/C) 
C0STC27)  = DEFC  27*  IB)4FAC0STC  27*  l)*C  .9  5/0 
C0STC28)=DEFC28*  I B)4FAC0STC  28*  D4C.9  5/C) 

C0 STC 29)  = DEFC 29* I B) 4FAC0STC 29*  1 >4C FAC0STC29* 2)  + . 06 ) * C . 9 5/C ) 
C0STC3O)=DEFC3O* IB)4FAC0STC3O* 1 ) 4 C FAC0STC 30* 2 ) ♦ . 057 5 ) 

44  C .95/0 

IFC ISWTCHC9) .NE. 5)G0  T0  45 
PRINT*"  DETAILED  BREAKDOWN  CY*N)" 

INPUT* I0P 
JUMP=3 

IFC  I0P.EQ.  I YES)JUMP=0 
IFC I0P.EQ.N0)JUMP= 1 
IFC  J UMP. NE . 3 ) G0  T0  10 
PRINT  607 
G0  T0  8 
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TABLE  41  (Cont) 


2787 

10 

2807 

2827 

28  47 

28  67 

20 

2887 

25 

2907 

30 

2927 

29  47 

2967 

298  7 

3007 

32 

3027 

3047 

3067 

308  7 

3107 

34 

3127 

3147 

3167 

3187 

3207 

35 

3227 

36 

3247 

3267 

328  7 

3307 

3327 

37 

3347 

3367 

338  7 

3407 

3427 

45 

3447 

3467 

50 

3487 

3507 

3527 

55 

3547 

3567 

3587 

65 

3607 

D0  30  K=  1 # NCAT 
I »I ARRAYCK) 

IFCJUMP.EQ.  1 )G0  T0  25 
I FCC0 STY  I >-.5) 30# 30# 20 

PRINT  600* IC0DESCI )#  CIDESCI# J)# J-l#  3)#C0STCI  ) 

PC0STI -PC0STI *C0STC  I ) 

CONTINUE 

C0ST1=XDEF2C  IB)*6.40*C  .9  5/0 
IFCJUMP.EQ. 1)60  T0  32 
IFCC0ST1 »LT. .5)60  T0  32 
PRINT  61 2#  C0ST 1 
PC0STI -PC0STI+C0ST 1 

C0ST2=  CXDEF3C \t IB)*34. 50+XDEF3C 2# I B) *69000. >*1 . 057 5* C . 9 5/C ) 

IFCJUMP.EQ. 1 ) 60  T0  34 

IFCC0ST2.LT. .5)60  T0  34 

PRINT  61 3*  C0ST2 

PC0STI -PC0STI+C0ST2 

X»0. 

C0ST3-O. 

D0  36  I*  1/  1 5 
D0  35  J«l#3 
X*X*XDEF4CJ# If  IB) 

C0ST3=C0ST3+X*TC0STC I ) 

ITNK-0 

IFCJUMP.EQ. 1 )G0  T0  37 
IFCC0ST3.LT. . 5)G0  T0  37 
PRINT  61  4*  C03T3 
PC0STI -PC0STI+C0ST3 
IFCISWTCHC9).LT.3)G0  T0  90 
PRINT  603#  PC0STI 
IM0D-O 

IFCPC0STI-.5  ) 100# 100# 50 

JUMP-1 

G0  T0  10 

I FC I SWTCHC9 ).NE*5)G0  T0  90 

IFCJUMP.EQ. 1>G0T0  90 

PRINT  605 

INPUT  606# I0P 

IFC I0P.EQ. I YES)G0  T0  90 

IFC I0P.EQ.N0 ) G0  T0  70 

PRINT  607” 

G0  T0  55 
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t 


•i 


TABLE  ‘11  (Cont) 


3627 

3647 

3667 

3687 

3707 

3727 

37  47 
3767 
3787 
3807 
3827 

38  47 
3867 
3887 
3907 
3927 

39  47 
3967 
3987 
4007 
4027 
4047 
4067 
408  7 
4107 
4127 
41  47 
41  67 
4187 
4207 
4227 
4247 
4267 
428  7 
4307 
4327 
4347 
4367 
438  7 
4407 
4427 
4447 
4467 
4487 
4507 


70  PRINT  608 
I M0D= 1 

72  INPUT  609#  NN# I C# XX 
I F(  NN ) 7 5#  9 0#  75 

75  IFCIC0M.EQ.IOG0  T0  77 

76  PRINT  607 
G0  T0  72 

77  D0  80  J= 1 # NCAT 
IFCNN-IC0DESC J) ) 8 0#  78# 8 0 

78  K = J 
KN  = 0 

G0  T0  8 5 
80  CONTINUE 

IF(NN.EG).  1 121O)G0  T0  120 
IFCNN.EQ. 1 363O)G0  T0  130 
IFCNN.EQ. 1 243OJG0  T0  140 
KN  = 0 

G0  T0  76 

85  IFCXX-1 .0>87#87#86 

86  PRINT  610 
G0  T0  72 

87  IFCKN.GT.OJG0  T0  88 
NSKIPCK)=1 

RPI  C K#  I B#  1 > = RPI  (K# IB# 1 )+XX*DEFCK# IB) 
PC0  STI = PC0  STI - ( 1 .-XX)*C0STCK> 

875  PRINT  61 1 
G0  T0  72 

88  G0  T0  (881#882#883># KN 

881  PC0STI  =PC0STI-(  1 #-'XX)*C0STl 
G0  T0  87  5 

882  PC0STI=PC0STI-C 1 .-XX)*C0ST2 
G0  T0  875 

883  PC0STI=PC0STI-< 1 .-XX)*C0ST3 
I TNK  = 1 

D0  885  1=1# 3 
TKSUM=0. 

D0  884  J=l#  1 5 

884  TKSUM=TKSUM-*-  TANK  SCJ)*XDEF4CI#J»  IB) 

TK  SUM®  TK  SUM4XX 

885  XRPI2(I#  IB)=XRPI2(I#  IB)  + TKSUM 
G0  T0  875 

90  D0  95  1 = 1# NCAT 

IFfNSKIPCI  ) - 1 >92#  9 5.  92 
92  RPI  (I#IB#  1)  = RPI  ( I # I B#  1 ) + DEF ( I # I B) 

95  CONTINUE 
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TABLE  41  (Cont) 


4527 
4547 
4567 
4587 
4607 
4627 
4647 
4667 
468  7 
4707 
4727 

47  47 
4767 
4787 

48  0 7 
4827 
48  47 
48  67 

48  8 7 
4907 
4927 

49  47 
49  67 
498  7 
5007 
5027 
5047 
5067 
5087 
5107 
5127 
5147 
5167 
5187 
5207 
5227 
5247 
5267 
5287 
5307 
5327 
5347 
5367 


IFCITNK.EQ.  1 >G0  T0  98 
DO  97  1 = 1*3 
TKSUM=0. 

D0  9 6 J=  1 * 1 5 

96  TK SUM* TK SUM* TANK S< J)*XDEF4CI* J* IB) 

97  XRPI2C  I*  IB)=XRPI2C  I*  I B)*TK  SUM 

98  IFCIM0D.EQ.O)G0  T0  100 
PRINT  6 1 5*  PC0STI 

100  TCOSTI=TC0STI*PC0STI 

IF(ISWTCH(9).LT.3)G0  T0  110 
PRINT  604*  IYEAR*  TC0STI 

110  GTOTAL*GT0TAL+TC0STI 
CALL  IC0STAC 
CHAIN  "PART9*" 

120  KN* 1 

G0  T0  8 5 

130  KN=2 

G0  T0  85 

140  KN  = 3 

G0  T0  85 

600  FORMAT ( 1X15*  1X3A4*  1XF8  • 1 > 

601  FORMATC 1X5HNAS--  A4* /3X 1 OHFACIL I TI ES  ) 

602  FORMAT < // 1 X26H IN VESTMENT  COST  {THOUSANDS  /22X11H0F  DOLLARS)  > 

603  F0RMATC/9X1 OH BASE  T0TALF9 • 1 ) 

604  FORMATC  /8X*'NAS  TOTAL*’/  1X"YEAR  ”I4*9XF9.1) 

605  FORMATS 1X30HWILL  ALL  DEFICITS  BE  MET  CY*N>  ) 

606  FORMATC Al ) 

607  FORMATC 1X24HINVALI D REPLY-- TRY  AGAIN  ) 

608  FORMATC 1X61HWRITE  CATEGORY  CODE  AND  PERCENT  OF  DEFICIT  TO  BE 
AMADE 

A UP  AS--/1X9HNNNNN* .XX/1X54HCNEED  ONLY  ENTER  CASES  WHERE  PERCE 
ANT  IS 

A LESS  THAN  1 . 0) / 1X3 1HUSE  CATEGORY  CODES  GIVEN  ABOVE* /1X41HZER 
AO  CAT 

AEGORY  CODE  INDICATES  END  OF  INPUT  ) 

609  FORMAT CI5*A1*F3*0) 

610  FORMATC IX 40HPERCENT  MUST  BE  LESS  THAN  1.0--TRY  AGAIN  ) 

611  FORMATC 1X6HNEXT--) 

612  FORMATC ” 1 1 2 1 0"» 1 X"TAX I WAY S ".1XF8.1) 

613  FORMATC”  1 3630”* 1X”RUNWY  LIGHTS"* 1XF8. 1 > 

614  FORMATC"  1 2430”* 1 X"RDY  FUEL  STG”*1XF8.1> 

615  FORMAT C / 5X"NEW  BASE  T0TAL”F9.1> 

END 
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TABIX  41  (Cent) 


538  7 

5407 

5427 

5447  , 

5467 

5487 

5507 

5527 

5547 

5567 

558  7 

5607 

5627 

5647 

5667 

5687 

5707 

5727 

5747 

5767 

5787 

5807 

5827 

58  47 
5867 
5887 
5907 
5927 

59  47 
5967 
5987 
6007 
6027 
6047 
6067 


a.  Subroutine  SIZE! 

SUBROUTINE  SIZECI,IB,Y) 

COMMON  I YEAR, ISWTCHC 10) 

COMMON  ACREQC9,21 ), TBASC 9),TNASC9),BPHC9,25),ASHC25, 3), 

4ACFH C 9 , 1 5), T0FFC9), TENLC9), TSTUC 9 ) , PNASEC 9 ) , SI (25), TCI  VC 9 ) , 
4S0  C 2 5)  , FUREOC  9,3),  PHPERC  9,  5)  , NBUSEC  9 > , RWC  25,  3,  3), 

41  ACTC2  5,  3),  ACN0  1 C25,  3)  , TOFF  1 C 2 5)  , EMT 1 C 2 5) 

COMMON  IATYPEC21 ), ACAC21 ), ACBC21 ),  ACCC21 ), ACDC21 ), 

4AHMC21 ), ACMC21 ), ASM1 C21), ASM2C21 ), AC  21, 3),RNWYLC21 ), 

&RL0ADC  21 ), C0MPC21 ), FLCSTC21 ), AOMC  21 ), CNAACC21 ) 

COMMON  NASNAMC9), ADC9),PFC9, 3) , EL C 9, 3 ) , CUC 9 ) , I BEDC 9 ) , PEEC 9 ) , 
4PREC9), P0C9), PSC9), PI  EC  9), TSC  9 ) , TH C 9 ) , TNOFFC 9 ) , TNENL C 9 ) , 
4TNCI VC9), ATCFC  9), WRC9, 2), TEN ACC 9, 6) , PERFAC C 9 ) , EMESC 9 ) 

COMMON  FAC0STC5O, 6) 

COMMON  FAPWC  6), APC  4, 3), GWTABC  3),  FAMESSC 7,  2),  EXCHC 10,  2), 

4F AEMC8,  2 ) , TANK  SC  1 5)  , TAXI  TOC  3) 

COMMON  ICODESC  50), IDESC50, 3) , RPI C 50, 9, 2) , I UN  I TSC  50) , 

4XRPI 1C  9, 10, 4),XRPI2C 3,9) 

COMMON  BRC  50,  9),XBR1 C9, 10,  4)  , XBR2C 3,  9 ) , DEFC 50, 9 ) , 

4XDEF2C  9),XDEF3C2, 9),X  DEF  4C  3,  1 5, 9 ) , TEX C 50, 9 ) , 

4NCAT,  IYES,N0, ICOM, GTOTAL,NPH 
ALPHA  IYES,N0, ICOM, I0P 
X=DEFC I, IB) 

IFCX-.5) 10, 10,20 
10  Y=0. 

RETURN 

20  IFCFAC0STCI,3).LT..O1)G0  TO  40 
X=X/FAC0STCI,3) 

IFCX-1 . )30, 40, 50 
30  Y=1.007/CX**. 10085) 

RETURN 
40  Y=  1 . 

RETURN 

50  Y=1.0012/CX*+. 06329) 

RETURN 

END 
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TABLE  41  (Cont) 
b.  Subroutine  ICOSTAC 


6087 
6107 
6127 
6147 
6167 
6187 
6207 
6227 
6247 
6267 
6287 
6307 
6327 
6347 
6367 
6387 
6407 
6427 
6447 
6467 
6487 
6507 
6527 
6547 
6567 
6587 
6607 
6627 
6647 
6667 
668  7 
6707 
6727 
6747 
6767 


6787 
6807 
6827 
68  47 
6867 


SUBR0UTINE  1C0STAC 
C0MM0N  1 YEAR* I SWTCH( 1 0) 

C0MM0N  ACREQ(9*21)*  TBASC9 )*TNAS(9>*  BPH (9*25)*ASH(2  5* 3)* 
AACFH(9* 1 5)*  T0FF(9)*TENL(9)*  TSTU( 9 ) * PNASE( 9 ) * SI (25)*  TCI V(9)* 
AS0 ( 25)  * FUREQ(  9*3)*PHPER(9*  5)*NBUSE(9)*  RW(2  5*  3*  3)* 

AIACT(25*  3)* ACN01 (25*  3) * TOFF  1 C 25) * EMT1 < 25) 

C0MM0N  I ATYPE(21 )* ACA(21 >* ACB(21 )* ACC(21 )* ACD<21 )* 

4AHM(21 )* ACM(21 )* ASM  1 (21)*  ASM2( 2 1 ) * A( 2 1 * 3)*  RNWYLC21 )* 
ARL0AD(21)*C0MP(21)*FLCST(21)*A0M(21)*  ON A AC ( 21) 

C0MM0N  NASNAM(9)*  AD( 9) * PF( 9* 3) * EL ( 9*  3 ) * CU( 9 ) * I BED( 9 ) * PEE( 9 ) * 
APRE(9)*P0(9)*PS(9)*PIE(9)*TS(9)*TH(9)*TN0FF(9)*  TNENL  ( 9 ) » 
ATNCI V(9)*ATCF(9>*  WR( 9* 2) * TENAC( 9* 6) * PERFAC( 9 ) * EMES( 9 ) 

C0MM0N  FAC0ST( 50*  6) 

C0MM0N  FAPW( 6) * AP( 4* 3) * GWTAB( 3) * FAMESS( 7* 2) * EXCH ( 10*2)* 
AFAEM(8*2)*TANKS( 1 5)* TAXI T0( 3) 

C0MM0N  IC0DES( 50)* I DES( 50*  3) * RPI ( 50* 9*  2) * I UNI TS( 50)* 

4XRPI  1(9*  10*  4)  * XRPI  2(  3*  9 ) 

C0MM0N  BR( 50*  9)*XBR1(9* 10* 4) * XBR2( 3* 9 ) * DEF( 50*9)* 
AXDEF2(9)*XDEF3(2*9)*XDEF4(3*  1 5*  9 ) * TEX ( 50*  9 ) * 

4NCAT* IYES*N0* IC0M*  GT0TAL* NPH 
DIMENSION  T0TAC( 20) 

ALPHA  1 0P*  I YES*  N0 
D0  1 0 J=  1 * 1 5 
T0TAC( J)=0. 

D0  10  1*1*9 

10  T0TAC(J)=T0TAC(J)+ACREQ( I* J) 

D0  12  J-l*  15 

12  T0TAC( J)»T0TAC(J)*  1 . 1 5 
TC0ST*  0 • 

DEFAC=0. 

JUMP-0 

I F(  I SWTCH( 9 ) • EQ«  3) JUMP* 1 
IFd  SWTCH(9>  »E0«  4)  JUMP*  1 
IF(ISWTCH(9).NE.5)G0  T0  25 
PRINT*" 


DETAILED  A/C  ASSET  P0SITI0N  A INVESTMENT  (Y*N)M 
15  INPUT*  I0P 

IF(I0P.EQ.IYES)G0  T0  20 
IF(I0P.EO.N0)G0  T0  18 
PRINT*  "INVALID  REPLY-- RETYPE" 

G0  T0  15 
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J-'i-  — - 


TABLE  41  (Cont) 

b.  Subroutine  ICOSTAC  (Cont) 


6887 
6907 
6927 
69  47 
6967 
6937 
7007 
7027 
7047 
7067 
7087 
7107 
7127 
7 1 47 
7167 
7187 
7207 
7227 
7247 
7267 
7287 
7307 
7327 
7347 


7367 

7387 

7407 

7427 

7447 

7467 

7487 

7507 

7527 

7547 

7567 

7587 

7607 

7627 

7647 

7667 

7687 


18  JUMP=  1 

20  I F ( JUMP .EQ.0)PRINT  600 
25  DO  30  1=1.15 

IF<T0TACC I ) .LT. . 5)G0  T0  30 
DEFAC 1=  T0TAC? I )-CNAAC?  I > 

IFtDEFACl .LT.0. > DEFAC 1=0. 

DEFAC=DEFAC+DEFAC 1 
C0ST1=DEFAC1*FLCST?  I ) 

C0ST2=  C0  ST  1 * • 1 5 
C0ST=C0ST1+C0ST2 
TC0ST=TC0ST'*‘C0ST 
I F?  I SWTCH?  9>.LT.3)G0  T0  30 
IF? JUMP. EO. 1 )G0  T0  30 

PRINT  601 .IATYPE?  I >. CNAAC? I ) . TOTAC? I >.  DEFAC 1 » COST  1 . C0ST2. 
&C0  ST 

30  CONTINUE 

GTOTAL =GT0  TAL+  TC0ST 
IF(ISWTCHC9).LT.3)G0  T0  80 
IF?JUMP.EQ.0)G0  TO  70 

PRINT. "A/C  INVESTMENT  CCNATRA) SUMMARY" 

PRINT  602. DEFAC. TC0ST 
GO  T0  70 

50  IF(TC0ST.LT.5.)G0  TO  80 

60  PRINT." 

D0  YOU  WISH  T0  CONSTRAIN  L SR  OUTPUT  ? Y. N ) " 

61  INPUT. IOP 

IF( IOP.EQ.IYES) CHAIN  "PART8*" 

IF( IOP. EQ. NO) GO  TO  80 
PRINT.  "BAD  REPLY-- RETYPE" 

GO  TO  61 

70  I F C I SWTCH ?9>.NE»5)G0  TO  80 
GO  TO  50 

80  DO  81  1=1.15 

8 1 CNAAC? I ) =AMAX 1 (CNAACt  I ).  TOTAC<  I ) ) 

RETURN 

600  FORMAT? 1X"A/C  INVESTMENT  & ASSET  POSITION CNATRA"/ 

A7X"ASSET  POSI TI0N"9X6C 1H-)"  COSTS  ( THOUS. ) "4C1H-)/ 
*2X"A/C  AVAILABLE  REQ ' D DEFICIT  FLYAWAY  SUPPORT  TOTAL") 
60  1 F0RMATC  1 XA4.  F8 . 0.  F9  • 0.  F8 . 0.  3F9 .0) 

602  FORMAT? 2X"T0TAL  A/C  T0TAL"/2X"DEFI Cl  ENT  COST  ?THOUS.)"/ 
A3XF7.0.6XF8.0) 

END 
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XV.  PROGRAM  PARTS 


PROGRAM  DESCRIPTION 

15.1  PROGRAM  PART8  is  entered  only  if  the  user  has  chosen  to  return  from 
PART4  or  PART7  to  constrain  LSR  output.  It  writes  out  on  file  RETURN  1 , the 
current  phase  to  base  allocation,  so  that  it  may  be  recovered  upon  re-entering 
PART 2 . 

15.2  Upon  entering  PART8,  ISWTCH(IO)  is  set  to  2,  which  is  a signal  to  the 
LSR  Generator  that  the  user  wishes  to  constrain  LSR  outputs.  Then  the  file 
RETURN1  is  rewound  and  the  present  phase  to  base  allocation  information  is 
stored.  Finally,  control  is  transferred  to  LSRM  . 

15.3  A flow  chart  of  PROGRAM  PART8  is  shown  in  Figure  15.  Table  42  refer- 
ences the  variable  dictionary  of  PROGRAM  PART8 ; the  program  and  subroutine 
dictionary  is  provided  in  Table  43.  The  program  listing  is  shown  in  Table  44. 


FIGURF  IS.  PROGRAM  PART8  FLOW  CHART 


TABLE  42 

PROGRAM  PART 8 VARIABLE  DICTIONARY* 


*See  the  common  variable  dictionary  for  PART2  , Table  18. 
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PROGRAM  PART 8 PROGRAM  DICTIONARY 


I 


I 

TABLE  4 4 

PROGRAM  PARTS  LISTING 

1008  COMMON  I YEAR# I SWTCHC 10) 

1028  COMMON  ACRE9(9#21 )#  TBASC 9)#TNAS(9)#BPH(9#25)#ASH(25#  3)# 

1048  4ACFH(9# 1 5) # TO FF( 9 ) # TENL ( 9 > # TSTU( 9 ) # PN ASE( 9 ) # SI ( 25) # TC I V C9)» 

1068  4S0(25)#FUREQ(9#3)#PHPER(9#  5)  # NBUSE'  9 > , R W<  2 5#  3#  3)# 

1088  4IACT(25#  3)# ACN01 (25#  3) # TOFF  1 ( 25) # EMT 1 ( 2 5) 

1108  COMMON  IATYPE(21 )# ACA(21 )# ACB(21 )#ACC(21 )#ACD(21 )# 

1 128  4AHMC21 ) # ACM< 2 l > # ASM  1 ( 2 1 ) # ASM2<  2 1 ) # A( 2 1 # 3),  RNWYL(21  )# 

1 1 48  4RL0AD(21)#C0MP(21)»FLCST(21 )# A0M(21 )#  CNAAC( 21 ) 

1 1 68  COMMON  NASNAM(9)#AD(9)#PF(9#3)#EL(9# 3)#  CU(9)# I BEDC 9 ) # PEE( 9 ) # 

1 188  4PRE(  9)#P0(9)#PS(9)#PIE<9)#  TS(9)#  TH(9)#  TN0FF(9)»  TNENL  ( 9 ) # 

1208  4TNCI V(9)#ATCF(9)#  WR(9# 2)i TENAC(9»  6 ) # PERF AC ( 9 ) # EME  5(9) 

1228  COMMON  FAC0ST( 50#  6) 

1 £ 48  COMMON  FAPW( 6)# AP( 4# 3)# GWTAB( 3)» FAMESS( 7# 2)# EXCH( 1 0# 2)# 

1268  4FAEM(8#2)#  TANKS( 1 5)# TAXI T0( 3) 

1288  COMMON  I C0DES( 50) # I DES( 50# 3 ) # RPI ( 50# 9# 2) # I UN  I TS( 50 ) # 

1308  4XRPI 1(9# 10# 4)#XRPI2(3#9) 

1328  COMMON  BR( 50# 9 ) # XBR 1 ( 9# 1 0# 4) # X BR2( 3# 9 ) # DEF( 50# 9 ) # 

1348  4XDEF2(9)#X  DEF3( 2#  9 ) # X DEF  4( 3# 1 5# 9 ) # TEX ( 50# 9 ) # 

1368  4NCAT#  IYES#N0#  I COM#  GTOTAL#  NPH 

1388  I SWTCH ( 1 0)  = 2 

1408  OPENFILE  "RETURN  1" 

1428  REWIND  "RETURN  1" 

1448  WRITE(" RETURN  1"#  604) BPH 

1468  WRI TE( "RETURN  1 "#  602) NBUSE 

1488  CLOSEFILE  "RETURN  1" 

1508  CHAIN  "XLSRM*" 

1528  600  F0RMAT(A4) 

1548  601  F0RMAT( I 5# E13. 6) 

1568  602  F0RMAT( 818) 

1588  603  F0RMAT(  I 5A4) 

1608  604  FORMA T( 5E1 3*  6) 

1628  END 
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XVI.  PROGRAM  PART9 


PROGRAM  DESCRIPTION 

16.1  PROGRAM  PART9  ^ computes  operations  and  maintenance  (O&M)  costs 
and  combines  these  costs  with  investment  costs,  which  were  computed  in 
PART5  and  PART7  , to  arrive  at  the  total  systems  cost. 

16.2  Upon  entering  PART9  , ISA  is  set  to  0 if  no  O&M  printout  is  to  be  displayed 
(print  level  l or  2),  1 if  only  a summary  printout  (print  level  3 or  4),  or  2 if  the 
complete  breakdown  of  O&M  costs  is  desired.  If  the  print  level  is  5,  the  user 
makes  the  choice  between  detailed  or  summary  printout. 

16.3  Storage  locations  SUB1,  SUB2,  and  SUB3,  in  which  cost  totals  will  be 
stored,  are  first  initialized  to  zero.  Then  the  following  O&M  costs  are  computed 
by  base:  first,  facility  O&M  costs;  then  runway  O&M  costs,  and  finally,  per- 
sonnel costs.  Next,  fuel  coses  are  computed, followed  by  aircraft  O&M  costs, 
which  utilize  the  annual  flight  hours  per  aircraft  type  as  they  were  accumulated 
in  PART3.  Finally,  base  support  costs  are  computed. 

16.4  If  details  had  been  requested  previously,  these  costs  would  have  been 
printed  out  as  they  were  computed  . Otherwise,  a summary  O&M  cost  table  is 
printed  at  this  point.  The  computations  proceed  for  all  bases  after  which  the 
total  systems  costs,  including  total  investment  cost,  O&M  costs,  and  those 
fixed  costs  ($6.2  milion)  in  the  model  are  computed  and  displayed. 


1/ 


This  program  is  part  of  the  Total  Systems  Cost  Submodel  discussed  in 
Volumes  I and  II. 
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■PFECEDIIC  PA  iE 


1*ANK_noT  FTL!?J2 


16.5  If  the  user  wishes  to  return  to  the  excess  deficiency  program  as  it  was 
when  it  was  last  entered  (with  possibly  a new  level  of  print  detail),  he  so 
indicates  and  control  is  transferred  to  PART6 . If  not,  then  the  user  may  choose 
to  go  on  and  generate  another  LSR  for  the  next  simulated  year;  in  which  case, 
the  date  and  year  count  are  updated  and  the  file  RL’TURN , which  contains 
information  on  the  asset  position  that  will  be  required  upon  returning  to 
PART2,  is  written.  If  neither  option  is  taken,  the  program  ends  at  line  3549  . 

16.6  A flow  chart  of  PROGRAM  PAR  T9  is  shown  in  Pigure  16.  Table  4 5 
contains  the  variable  dictionary  of  PROGRAM  PART9;  the  program  and  subroutine 
dictionary  is  provided  in  Table  46.  The  program  listing  is  shown  in  Table  47. 
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TABU  4 5 

PROGRAM  PART9  VARIABI.i:  DICTIONARY* 


Location 

Variable 

Name 

Dimension 

Type 

Description 

PAR  T9 

IARRAY 

50 

I 

See  common  variable  description 
for  PART6 , Table  36 

PAR  T9 

ISA 

1 

I 

Detail  or  summary  print  indicator 

PART9 

I OP 

1 

A 

Terminal  Yes-No  response 

PART9 

IX 

1 

I 

ISA  + 1 

PAR  T9 

SUB  3 

1 

F 

Total  O&M  cost — all  bases 

PART9 

SUB1 

1 

F 

Base  total  O&M  cost 

PART9 

SUB2 

1 

F 

Total  facility  O&M  cost — one  base 

PART9 

COST 

1 

F 

Temporary  location  for  various  costs 

PART9 

RWX 

1 

F 

Runway  O&M  costs 

PART9 

COST1 

1 

F 

Civilian  wages 

PART9 

COST2 

1 

F 

Military  pay  and  allowances 

PAR  T9 

COST3 

1 

F 

Aircraft  fuel  cost 

PART9 

ACOST 

1 

F 

Aircraft  O&M  cost 

PART9 

BSUPP 

1 

F 

Base  support  cost 

PART9 

— 

IXX 



1 

I 

New  level  of  print  detail  input  from 
terminal 

For  variables  in  common,  see  PROGRAM  PART2  variable  dictionary, 
Table  18. 
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I 

TABLE  46 


PROGRAM  PART 9 PROGRAM  DICTIONARY 


1009 
1 029 
1049 
1069 
1089 
1 109 
1 129 
1 1 49 
1 1 69 
1 189 
1209 
1229 
1249 
12  69 
1289 
1309 
1329 
1349 
1369 
1 389 
1 409 
1 429 
1449 
1 469 
1 489 
1 509 
1 529 
1 549 
1 569 
1 589 
1 609 
1 629 
1 649 
1669 
1689 
1709 
1729 
1749 
17  69 
1789 
1809 
1829 
1849 


TABLE  47 

PROGRAM  PART9  LISTING 


COMMON  1 YEAR# 1 SWTCHC  I 0) 

COMMON  ACREQC9#21>#  TBASC  9)#TNASC9)#BPHC9»25)#ASHC25#3)# 
4ACFHC9# 1 5)#T0FFC9)#  TENLC9)#  TSTUC9)#  PNASEC9)#  SI (25)#  TCI VC9)# 
4S0C25)#  FUREQC9#  3) # PHPERC 9# 5) * NBUSEC 9 > # RWC 25# 3#  3># 

41  ACTC2  5#  3>#  ACNO  1 C25#  3) # TOFF  1 C 25) # EMT 1 C 2 5) 

COMMON  IATYPEC21)# ACAC21 )# ACBC21 )# ACCC21 )# ACDC21 )# 

4 AHM  C 2 1 ) # ACM  < 2 1 ) # ASM 1 C 2 1 ) # ASM2 C 2 1 ) # A C 2 1 # 3 ) # RN  WYL  C 2 1 > # 
4RL0ADC21 >»C0MP(21 > # FLC STC 2 1 ) # AOMC 2 1 ) # CNAACC 2 I ) 

COMMON  NASNAMC  9) # ADC9)#PFC9# 3) # ELC9# 3) # CIK  9 ) # I BEDC 9 ) # PEEC 9 ) # 
4PREC9)#  P0C9)#PSC9)#  PI  EC  9)# TS< 9 ) # TH ( 9 ) # TNOFFC 9 ) # TNENL C 9 ) # 
4TNCI VC9)# ATCFC9)# WRC9# 2>#  TEN ACC 9# 6)# PERFACC9 )#  EMESC9 ) 

COMMON  FACOSTC  50#  6) 

COMMON  FAPWC 6)# AP< 4#  3) # GWTAB< 3)#  FAMESSC  7# 2) # EXCH C 1 0#  2) # 
4FAEMC8# 2)# TANKS( 15)#  TAXI  TOC  3) 

COMMON  I CODESC 50)# IDESC  50#  3)#RPI (50# 9# 2>#  IUNITSC  50)# 

4XRPI 1C 9# 10#  4)#XRPI2(3#9) 

COMMON  BRC50#9)#  XBR 1 < 9#  10#  4)  * XBR2C  3#  9 ) # DEFC50#9)# 

4XDEF2C9) # XDEF3 ( 2#9)#XDEF4<  3# 1 5# 9 ) # TEX C 50# 9 ) # 

4NCAT# IYES#N0# ICOM#  GTOTAL#NPH 
DIMENSION  I ARRAY  C 50) 

ALPHA  IYES#N0# ICOM# IOP 

DATA  I ARRAY/  1#  27#  28#  2#  3#  4#  5#  6#  7#  29#  30#  8#  9#  10#26#  1 1#  12#  13# 
414,  15#  16#  17#  18#  19#  20#  21  #22#  23#  24#  25#  20*0/ 

I SA=  0 

IFC ISWTCHC9) .EQ.3) ISA* 1 
I FC  I SWTCHC9 ) • EQ# 4) I SA=  1 
IFC I SWTCHC  9) .NE»  5) GO  TO  20 

PRINT#  *'D0  YOU  WANT  DETAILED  0 4 M COSTS  CY#N)" 

10  INPUT# IOP 

IFCI0P.EQ.IYES)G0  T0  17 
IFCI0P.EO.N0)G0  T0  19 
PRINT#  '*INVALI  D REPLY- -RETYPE** 


G0 

TO 

10 

1 7 

ISA 

= 2 

G0 

TO 

20 

19 

ISA 

= 1 

20 

IX* 

ISA+1 

GO 

TO 

C 35# 

25 

PRINT 

600 

G0 

TO 

35 

30 

PRINT 

601 

35 

SUB3* 

0. 

DO 

80 

I B=  1 

25#  30)  # I X 
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TABLE  47  (Cont) 


1869 
1889 
1909 
1929 
19  49 
1969 
1989 
2009 
2029 
2049 
2069 
2089 
2109 
2129 
2149 
2169 
2189 
2209 
2229 
2249 
2269 
2289 
2309 
2329 
2349 
2369 
2389 
2409 
2429 
2449 
2469 
2489 
2509 
2529 
2549 
2569 
2589 
2609 
2629 
2649 
2669 
2689 
2709 


SUB1-0. 

IFCNBUSECIB>.EQ.O)G0  T0  80 
IFCISA.E0.2)PRINT  6 1 5# NASNAMC I B) 

SUB2=0» 

00  50  K“ 1 , NCAT 
I»I ARRAYCK) 

COST»CRPICI,IB» 1)*RPI(I* IB,2>)*FAC0STCI,  6)*1. 407 
C0ST=C0ST/1000. 

1FCISA.LT. 2>G0  T0  50 
IFCC0ST.LT. .5)G0  T0  50 

PRINT  602, ICODESCI),  CIDESCI, J>, J=1,3>,C0ST 
50  SUB2=SUB2+C0ST 
RWX*0. 

DO  60  K=  1 , 10 

60  RWX=RWX*XRPI 1CIB,K,2) 

RWX»RWX*200./9. 

C0ST=RWX* . 02* I • E- 3 
IFCISA.LT. 2) G0  TO  62 
PRINT  603,  COST 
62  SUB2=SUB2*C0ST 

1 FC  I SA.  EO.  2 ) PRINT  604,  SUB2 
C0ST1=PHPERC IB, 5)*7. 

I F C I SA. EQ. 2 ) PRINT  6O5,C0ST1 

C0ST=CT0FFCIB)-PHPERCIB, 3) >*15.771 

SUB1=SUB1*C0ST 

IFCISA.EQ.2)PRINT  6O6,C0ST 

C0ST=PHPERCIB,2)*5.8  49 

SUB1-SUB1+C0ST 

IFCISA.E0.2)PRINT  607, COST 

C0ST-TSTUCIB>*8.41 1 

SUB1*SUB 1+C0ST 

IFC ISA.E0.2) PR I N T 608, COST 

COST=PHPERCIB, 3)* 13. 91 1 

SUB  I ■ SUB  1 ♦COST 

IFC ISA.EQ.2>PRINT  609, COST 

C0ST»PHPERC  IB,  4>*5.849 

SUB  1 -SUB  1 ♦COST 

IFC I SA. EQ. 2 ) PRINT  6 1 0, CO ST, SUB 1 
C0ST2»5U81 

C0ST3»C  FUREOC I B, 1>*. 127+FUREOC I B, 2>*. 1 7+FUREOC I B, 3>*. 17) 
A* I .E-3 

SUB  1 ■ SUB  1 ♦COSTS 

IFCISA .EG. 2> PRINT  611.C0ST3 
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TABLE  47  (Cont) 


2729 
27-09 
2769 
2789 
2809 
2829 
28  49 
28  69 
2889 
2909 
2929 
2949 
2969 
2989 
3009 
3029 
3049 


AC0ST=O. 

D0  70  1= 1# 1 5 

70  AC0ST=AC0ST+ACREQC IB# I )* ACFHC  I B#  I >*A0MC I >* 1 . E- 3 
SUB  1 = SUB  1 «■  Ap0  ST 
I FC  I SA.EQ. 2) PRINT  612#AC0ST 
BSUPP=  1 2 46.  13+1. 42612*CTBASC I B> - TNASC I B) ) 

SUB  1 =SUB 1 +BSUPP 

IFC ISA.EQ.2)PRINT  613#  BSUPP#  SUB  I 
IFCISA.EQ.  1 > PRINT  6 1 4# NASNAMC I B> # C0ST2# C0ST3# 
AAC0ST# BSUPP#  SUB  1 
80  SUB 3=  SUB 3+  SUB  1 

IFC ISA.EQ.OJG0  T0  85 
PRINT  616#  SUB3 
85  GT0 TAL  =G TOTAL ♦ SUB 3* 6200* 

IFCISA.EQ.O)G0  T0  90 

I F< I SA#  NE • 1 ) PRINT# "*  N0N-ADD  ITEMS” 

90  PRINT#” 


3069 
3089 
3 109 
3129 
31  49 
3169 
3189 
3209 
3229 
3249 
3269 
3289 
3309 
3329 
3349 
3369 
3389 
3 409 
3 429 
3449 
3469 
3489 
3509 


TOTAL  SYSTEMS  COST  =" 

PRINT#”  FACILITY  INVESTMENT  COSTS" 

PRINT#"  + A/C  INVESTMENT" 

PRINT#”  ♦ 0 A M COSTS  CLESS  NON  ADD  ITEMS)" 

PRINT#"  CNATRA#  CNABATRA#  CNAVANTRA FIXED  COSTS" 

PRINT  617#  GTOTAL 

PRINT# "DO  YOU  WISH  TO  RETURN  TO  EXCESS- DEFI Cl ENCY  PROGRAM  CY# 
AN>" 

92  INPUT# IOP 

IFCI0P.EO.IYES)GO  TO  94 

IFC I0P.EO.N0)G0  T0  95 

PRINT# "INVALID  REPLY-- RETYPE" 

GO  TO  92 

94  PRINT# "TYPE  LEVEL  OF  PRINTING  DETAIL  Cl-5>" 

INPUT# IXX 

IFCCIXX.LT. OJ.0R.C IXX.GT. 5>>G0  T0  94 
I SWTCHC9)“IXX 
I SWTCH  C 7 ) ■ 1 
CHAIN  "PART6*" 

95  PRINT#  "DO  YOU  WISH  TO  RUN  FOR  ANOTHER  YEAR  CY.N)" 

100  INPUT# IOP 

IFC I0P.EO. IYESJGO  TO  120 
IFC I0P.EO.N0)G0  TO  110 
PRINT# "INVAL I D REPLY- -RETYPE" 
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TABLE  47  (Cont) 

V 

1 3529 

60  T0  100 

3549 

no  stop 

3569 

120  ISWTCHC 1 0)*  1 

3589 

I YEAR* I YEAR* 1 

3609 

ISWTCH«6)=ISWTCH<6>*1 

3629 

0PENFILE  -RETURN- 

3649 

REWIND  -RETURN" 

3669 

WRITE< "RETURN", 6 1 8 > I C0 DES, NBUSE 

3689 

WRITE< "RETURN", 6 19) IDES, I UNITS 

3709 

WRI TE( "RETURN", 620) RPI, XRPI 1 ,XRPI 2, FAC0ST, BPH, CNAAC 

3729 

CL0SEFILE  "RETURN" 

37  49 

CHAIN  "XLSRM*" 

3769 

600  F0RMATC 1X"SUMMARY  0 A M C0STS"// 1X"NAS 

3789 

A"MILITARY  A/C  FUEL  A/C  8AM  BASE"/9X 

3809 

A"PAA"7X"T0TAL"4X"T0TAL"3X"SUPP0RT"3X"T0TAL") 

3829 

601  F0RMATC 1X"DETAILED  0AM  C0STS  < TH0US. ) "/5X"FACILI TI ES"/ 

38  49 

A1X"C0DE  DESCRIPTI0N  C0ST") 

38  69 

602  F0RMAT(  1X15,  1X3A4,  1XF8*  1) 

3889 

603  FORMAT* 1X"1 1 1 1 0"1X"RUNWAYS"6XF8. 1) 

3909 

604  F0RMATC IX"*  $UBT0TAL"8XF8 . 1 ) 

. 3929 

605  F0RMATC /IX"*  CIVILIAN  WA6ES"2XF8. 1 ) 

3949 

606  FORMAT* /1X"PAY  A ALL0WANCES"/3X"PHASE  0FFI CERS"3XF8 • I ) 

3969 

607  F0RMAT*3X"PHASE  ENL I S TED"3X F8 • 1 ) 

3989 

608  F0 RMA T < 3X "STUDENTS "9 XF8. 1) 

4009 

609  FORMAT* 3X"NAS  0FFICERS"5XF8. 1 ) 

4029 

610  F0RMAT*  3X"NAS  ENL I STED"5XF8» 1 /4X "SUBTOTAL "8XF8 • 1 ) 

4049 

611  F0RMATC / 1 X "A/C  FUEL"1 1XF8 . 1 ) 

4069 

612  F0RMATC 1X-A/C  0 A M"10XF8»1> 

4089 

613  F0RMAT* 1X"BASE  SUPP*RT"7XF8 . 1/4X"T8TAL"1 1XF8. 1/) 

4109 

61 4 FORMAT* 1XA4, 2XF8. 1, 1X4* 1XF8. 1>) 

4129 

615  F0RMAT*/2S( 1H- )/ IX"NAS--"A4) 

4149 

616  F0RMAT*///4X"T0TAL  0AM  C0ST"/6X"ALL  BASES"5XF8. 1 > 

4169 

617  FORMAT* 1X9* 1H-) 10XF8* 1 > 

4189 

618  F0RMATC8I8) 

4209 

619  FORMAT* 1 5A4) 

4229 

620  FORMAT*  5E1 3*6) 

4249 

♦ 

END 
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A 

— **> 

XVII. 


UTILITY  PROGRAMS 


INTRODUCTION 

17.1  The  following  four  utility  programs  are  associated  with,  but  not  a part 
of,  the  automated  IFRS  system:  PROGRAMS  TABGEN,  ACFILIST,  BAFILIST,  and 
INFILIST.  These  programs  support  the  IFRS  system  for  they  enable  the  user  to 
rapidly  modify  data  file  TABLE*  and  to  provide  a list  of  the  data  in  data  files 
AC  DAT*  , BASED*,  and  INVCO*.  This  section  briefly  describes  these  utility 
programs  and  presents  a program  listing  of  each. 

PROGRAM  TABGEN 

17.2  PROGRAM  TABGEN  is  utilized  to  update  the  data  file  TABLE*  which 
contains  facility  planning  factors.  Upon  entry,  the  data  currently  contained 
in  data  file  TABLE*  are  read  into  the  computer's  memory.  Through  a series  of 
terminal  responses,  the  user  enters  revisions  to  the  planning  factor  data. 

When  all  revisions  are  complete,  data  file  TABLE*  is  updated  and  the  computer 
run  is  terminated.  A program  listing  of  TABGEN  is  shown  in  Table  48. 

PROGRAMS  ACFILIST,  BAFILIST,  AND  INFILIST 

17.3  PROGRAMS  ACFILIST,  BAT  I LIST,  and  INFILIST  were  developed  to  provide 
the  user  with  an  orderly  list  of  the  data  contained  in  the  data  files  ACDAT* 
(aircraft-oriented  planning  factors),  BASED*  (base-dependent  planning  factors), 
and  INVCO*  (facility  cost  data),  respectively.  When  these  programs  are  run, 
they  read  the  appropriate  data  file  and  print  the  data  with  an  appropriate  de- 
scriptor. The  computer  runs  are  then  terminated.  Tables  49,  50,  and  51  con- 
tain a list  of  PROGRAMS  ACFILIST,  BAFILIST,  and  INFILIST,  respectively. 
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^SCEDW;  paos 


SUNK-no1 


TABLE  48 


PROGRAM  TABGEN  LISTING 


1 00 

1 10 

120 
1 30 
1 40 

1 50 
1 60 
170 
180 
190 
200 

2 1 0 
220 
230 

2 40 
250 
260 
270 
280 
290 
300 
310 
320 
330 

3 40 
350 
360 
370 

38  0 

39  0 
400 
410 
420 


DIMENSION  F APW  C 6)  * AP(  A,  3)*  GWTABC  3) . FAMF.SSC  7,  2)  , 
&EXCH  ( 1 0*  2)*  FAEMC  8*  2)*  TANK  SC  1 5)  * 7 AX  I TO  C 3 ) 

PRINT* " TYPE  1 FOR  GENERATE*  2 FOR  UPDATE” 

NSK I P=  0 
INPUT* I CHOI CE 
IFCICH0ICE.EO.2)G0  TO  500 
10  PRINT*"  INPUT  FAPWC6)" 

PRINT*”  “ 

INPUT*  C F APW  C I )* 1= 1*  6) 

IFC ICH0ICE. EC.2)G0  TO  505 
20  PRINT*"  INPUT  APC4.3)" 

PRINT*"  " 

INPUT*  C C APC I * J>* J= 1 * 3)* I = 1*  4) 

IFC ICH0ICE.EQ.2)G0  TO  505 
30  PRINT*"  INPUT  GWTABC  3 ) " 

PRINT*"  " 

INPUT*  C GWTABC I ) , I = 1*  3) 

IFCICH0ICE.E0.2)G0  TO  505 
40  PRINT*"  INPUT  FAMESSC7,2>" 

PRINT*"  " 

INPUT*  C C F AMF.SSC  I *J)*J=1*2)*  1 = 1*  7) 
IFCICH0ICE.EQ.2)G0  TO  505 
50  PRINT*"  INPUT  EXCHC10*2>" 

PRINT*"  " 

INPUT*  C CEXCHC I , J), J= 1*  2)* 1= 1*  10) 

IFC ICHOICE.EQ.2)G0  T0  505 
60  PRINT*"  INPUT  FAEMC8*2>" 

PRINT*"  " 

INPUT. C C FAEMC I » J ) * J= 1 , 2) * I = 1 * 8 ) 

IFC ICHOI CE.EO.2)G0  TO  505 
70  PRINT*"  INPUT  TANKSC 15)" 

PRINT*"  " 

INPUT*  C TANKSC I ) * 1= 1 * 15) 
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TABLL  48  (Cont) 


I 


430  IF< ICH0ICE.EQ.2)G0  T0  505 

440  80  PRINT,"  INPUT  TAXI  T0C  3) " 

450  PRINT,"  " 

460  INPUT, (TAXI  TOC  I ) * 1= 1, 3) 

470  IF< ICH0iCE.EQ.2)G0  T0  505 

480  0PENFILE  "TABLE*" 

490  480  REWIND  "TABLE*" 

500  WRI TE( "TABLE*",  600) (FAPWC I I ), I 1 = 1 , 6), C < AP< 12, J2), I 2= 1 , 4), 

510  4J2= 1, 3), CGWTABC 13), I 3-1, 3), (( FAMESSC I 4, J 4 ) , I 4= 1 , 7 ) , 

520  *J4=1, 2),  C CEXCH<  I 5,  J5>,  I 5=  1,  10),  J 5=  1, 2),  ( <FAEM(  I 6,  J6)  , 

530  &I6=1,8),J6=1,2),(  TANK  S(  17), 17=1,  15), ( TAXI  TO (18), 18=1, 3) 

540  PRINT,"  DONE" 

550  STOP 

560  500  0PENFILE  "TABLE*" 

570  REWIND  "TABLE*" 

58  0 READC "TABLE*",  600) (FAPW< I 1 ), I 1= 1, 6), ( ( AP< I 2, J2) , I 2= 1 , 4) , 

59  0 «J2=  1,3),  ( GWTAB(  I 3 ) , I 3=  1 , 3 ) , C ( F AMESS<  1 4,  J 4)  , I 4=  1 , 7)  , 

600  &J4  = 1, 2), < (EXCHC I 5, J 5) , I 5= 1 , 1 0) , J 5= 1 , 2 ) , ( (FAEMC I 6, J6), 

610  *I6=1,8),J6=1,2),( TANK  S( 17), 17=1,  15), ( TAXI T0 (18), 18=1, 3) 

620  505  PRINT,"  WHICH  TABLE" 

630  IFfNSKIP.EG. 1 )G0  T0  510 

640  NSK I P= 1 

650  PRINT,"  TYPE  1 FOR  FAPW" 

660  PRINT,"  2 FOR  AP" 

670  PRINT,"  3 FOR  GWTAB" 

680  PRINT,"  4 FOR  FAMESS" 

690  PRINT,"  5 FOR  EXCH" 

700  PRINT,"  6 FOR  FAEM" 

710  PRINT,"  7 FOR  TANKS" 

720  PRINT,"  8 FOR  TAX I TO" 

730  PRINT,"  0 FOR  END  OF  MODIFICATIONS" 

740  510  INPUT, M 

750  IF(M.EQ.O)G0  TO  480 

760  GO  TO  ( 10,20,  30,  40,  50,  60,  70,80), M 

770  600  FORMAT?  6E 1 2 • 6 ) 

780  END 
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TABLE  49 


PROGRAM  ACFILIST  LISTING 


100 
1 10 
1 20 
1 30 
1 40 
1 50 
1 60 
1 70 
180 
190 
200 
210 
220 
230 
240 
2b0 
260 
270 
28  0 
290 
300 
310 
320 
330 
3 40 
350 
360 
370 

38  0 

39  0 
400 
410 
420 
430 
440 
450 
460 
470 

48  0 

49  0 


DIMENSION  I AT  YPEC21 ),  AC AC  21 ), ACBC 21 ), ACCC  21 ) , AC DC  2 1 ) * 
AAHMC21 )>  ACMC21 ) , ASM  1 C 21 ), ASM2C  21 ), AC21, 3)>  RNWYLC21 ), 
&RL0ADC21 ) * COM  PC  21  ),  FLCSTC  21)  > A0MC21  ),  CNAAC(21  ) 
0PENFILE  "AC DAT*” 

REWIND  "ACDAT*" 

DO  10  1 = 1 >21 

READC "ACDAT*",  600)  IATYPE(  I ) 

READC "ACDAT*", 601 )LINE>  ACAC I )>  ACBC I ) > ACC ( I )>  ACDC  I ) 
READ( "ACDAT*", 601 )LINE>  AHM ( I ) > ACM C I )>  ASM  1 ( I )> ASM2( I ) 
READC "ACDAT* ",  60 1 ) L I NE>  C A( I > J ) > J= 1 > 3 ) 

READC "ACDAT*"> 601 )LINE>  RNWYLCI ) > RL0AD( I ) > C0MPC I ) 

READf "ACDAT*"> 601 >L INE>  FLCSTC I )> A0M(  I ) 

READC "ACDAT*"> 601 )LINE>  CNAACC  I ) 

10  CONTINUE 

CL0SEFILE  "ACDAT*" 

D0  30  J=  1 > 3 
IL0=  1 
I H I = 6 


21 


■ EG. 

■ EQ. 


I F C J 
I FC  J 
IFC J.EQ 
I FC  J 
I FC  J 
IFCJ.EQ 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
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EQ • 2)1 L0  = 7 
EQ.2) IHI=  1 0 
3)1 L0=  1 6 
3 ) I H I =2 1 

3 ) PRI N T 623> C I ATYPEC I )> 1= 1 6> 21 ) 
3 ) G0  T0  21 

C I ATYPEC I )> 1= IL0> I H I ) 

C ACAC I ) > I=IL0> I H I ) 

C ACBC I )> I = IL0> IHI  ) 

C ACCC I )> I = IL0> IHI  ) 

C ACDC I )> I = IL0> IHI  ) 

C AHMC I )> I = IL0> IHI  ) 

C ACMC I )> I = IL0> IHI  ) 

609>  C ASM  1 C I ) > I = IL0> IHI ) 

61 0>  C ASM2C I )> I = IL0> IHI  ) 

61  1>  CAC I>  1 )> I = IL0> IHI ) 

612>  C AC  I > 2)> I = IL0> IHI  ) 

61 3>  C AC  I > 3)> I = IL0> IHI  ) 

IFCJ.EQ. 3)G0  TO  24 

PRINT  61 4, CRNWYLC I )> I = IL0> IHI  ) 

PRINT  61 5> C RLOADC I )> I=ILO> IHI ) 

PRINT  61 6> CCOMPC I )> 1 = ILO> IHI  ) 


602  > 
603  > 
60  4> 
605> 
606> 
607, 
608 ; 
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TABI.i:  49  (Cont) 


500 

510 

520 

530 

540 

30 

550 

40 

5 60 

45 

570 

58  0 

590 

600 

610 

600 

620 

601 

630 

602 

640 

603 

650 

604 

660 

605 

670 

606 

68  0 

607 

690 

608 

700 

609 

710 

610 

720 

61  1 

730 

612 

7 40 

613 

750 

614 

760 

615 

770 

616 

780 

617 

790 

618 

800 

619 

810 

620 

820 

621 

830 

622 

8 40 

623 

8 50 

I F ! J • EQ  • 3 ) G0  T0  40 

PRINT  617,  CFLCSK  I )#  I=IL0#  IHI  ) 

PRINT  618# ! AOM! I ) » 1= IL0# IHI  ) 

PRINT  619# !CNAAC! I )# I = IL0#  IHI  ) 

PRINT  620 

D0  45  I = 1 6#  2 1 

FLCST < I ) = FLCST!  I >*  1 . E-3 

PRINT  621#<FLCST!I)#I=16#21) 

PRINT  622#  ! A0M( I)#I=16#21) 

PRINT  620 
ST0P 

F0RMATC 5XA4) 

FORMAT ! V) 

F0RMATC 1X"TRAINING  A/C" 1 OX "UN I T "6<A4#3X)> 

FORMAT! 1X"PARK1NG  APR0N  DATA  A"4X"FT"6!  FS.  1 # 2a)  ) 
F0RMATC 1X"PARKING  APR0N  DATA  B"4X"FT"6( F5. 1 # 2X ) ) 
FORMAT! 1X"PARKING  APRON  DATA  C"4X"FT"6! F5. 1 # 2X> ) 
FORMAT! 1X"PARKING  APRON  DATA  D"4X"FT"6! F5. 1 # 2X > ) 
FORMAT! 1X"A/C  PER  HANGAR  M0DULE"3X"AC  " 6! F 4. 0# 3X ) ) 
FORMAT! IX"A/C  PER  CREW  4 EQUIP  MDLAC  "6!F4.0#3X>> 
FORMAT! 1X"A/C  PER  BASIC  SHOP  MDL"2X"AC  "6! F4. 0# 3X ) ) 
FORMAT!  1X"A/C  PER  SUPPL  SHOP  MDL"2X"AC  "6!  F 4.  0#  3X  ) ) 
FORMAT! 1X"C0VERED  WAREHOUSE  SPACE  SF"6! F5. 0# 2X ) ) 
FORMAT! 1X"SHED  SPACE  REQUI RED"SX"SF  "6! F4. 0# 3X ) ) 
FORMAT! 1X"0PEN  STORAGE  REQUI RED"3X"SF  "6! F4. 0# 3X ) ) 
FORMAT!  1X"RUNWAY  LENGTH  REQ  • "6X  "L  F"6!  F 6.  0#  1 X ) ) 
FORMAT! 1X"RUNWAY  LOAD  FAC T0R"6X "* *"3X 6! F2 . 0# 5X ) ) 
FORMAT! 1X"RUNWAY  COMPOSITION  FACT. **"3X 6! F2. 0# 5X ) ) 
FORMAT!  1X"IN  VESTMENT  COST  !TH0U.)  $S"6!  F5.  0#  2X  ) ) 
FORMAT! 1X"04M  COST  PER  FLIGHT  H0UR$$"6! F5. 2# 2X ) ) 
FORMAT!  1X"INVENT0RY  UN"6!  F5.0#  2X  ) ) 

FORMAT!///) 

FORMAT! 1X"ANNUAL  FUEL  !TH0US.)  GA"6! F5. 0# 2X ) ) 
FORMAT! 1X"FUEL  TYPE  1-JET  2=AGAS  **"6! F5. 0# 2X ) ) 
FORMAT!  1X"TENANT  A/C  UNIT  "6!A4#3X)) 

END 
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tab:.i:  50 


PROGRAM  BAI  T LIST  LISTING 


1 00 
1 10 

1 20 
1 30 
1 40 
1 50 
1 60 
1 70 
1 B 0 

1 90 
200 
210 
220 
230 

2 40 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
38  0 
390 
400 
41  0 
420 
430 
440 
450 
460 
470 
480 
49  0 
500 
510 
520 
530 
540 


DIMENSION  NASNAMC9). ADC  9), PFC  9* 3)*  EL  C 9 * 3) »CU(9),  TH  C 9 ) * TSC9>* 
<£  TN0FF  C 9 ) * TN  ENL  C 9 ) * TNG  I VC9)*  PEEC9)  * PREC  9 ) * P0  C 9 ) * PS<  9 > * PI  EC  9)  * 
&EMESC9) * I BEDC  9 ) * PERFACC 9 ) * ATCF C 9 ) * WRC 9 * 2 ) * TENAC C 9 * 6 ) 

OPENFILE  "BASED3*" 

REWIND  "BASED*" 

DO  10  1=1*9 

REA DC "BASED*"* 600JNASNAMC I ) 

RE ADC "BASED*"*  602 ) L I N E*  ADC  I ) 

READC "BASED*"*  602)LINE*  CPFCI*J)*J=1»3)»CELCI*K>*K=1*3) 

READC "BASED*"*  602)LINE*  CUC I ) * TH C I ) * TSC  I ) 

READC "BASED*"*  602)LINE*  TNOFFC I ) * TNENLC I )*  TNCI  VC  I ) 

READC "BASED*"*  602) LINE*  PEEC I )*  PREC I ) * P0 C I ) * PSC  I ) * PI  EC  I ) 

READC "BASED*"*  602)LINE*  EM ESC  I )* I BEDC I )*  PERFACC  I ) 

READC "BASED*"*  602JLINE*  ATCFC I ) * C WRC  I * J > * J=  1 , 2 ) 

READC "BASED*"*  602JLINE*  C TEN  ACC  I * J ) , J= 1 * 6) 

10  CONTINUE 

CLOSEFILE  "BASED*" 

D0  100  J= 1*2 
IL0=  1 

IFCJ.EQ.2) IL0=9 
I H I =8 

IFCJ.EQ.2)IHI=9 

PRINT  601  * CNASNAMC I >*I  = IL0*IHI) 

PRINT  603* C ADC  I ) , 1= IL0* IHI ) 

PRINT  604* C PFC I * 1 ), 1 = IL0* IHI ) 

PRINT  606* C PFC I *2)* I=IL0* IHI ) 

PRINT  607* C PFC I * 3)* 1 = IL0* IHI ) 

PRINT  608* CELCI, 1 )* I=IL0* IHI ) 

PRINT  609* CELC I *2)* I=IL0* IHI > 

PRINT  61 0* CELC I * 3)* 1 = IL0* IHI ) 

PRINT  61  1 * CCUC I)* 1 = IL0*  IHI ) 

PRINT  612* C THC I )* 1= IL0* IHI ) 

PRINT  61 3* CTSC I ), 1= IL0» IHI ) 

PRINT  61 4*  C TNOFFC I ) * 1 = IL0* IHI > 

PRINT  61 5* C TNENLC I )* I =IL0* IHI) 

PRINT  616* C TNCI VC  I )* I = IL0* IHI ) 

PRINT  617* CPEEC I )* I=ILO» IHI ) 

PRINT  618* CPREC I )* I=ILO* IHI ) 

PRINT  619* CP0C I )* 1= IL0» IHI ) 

PRINT  620* CPSC I )* 1= IL0» IHI ) 

PRINT  621  * C PI  EC  I )* I = IL0* IHI ) 

PRINT  622* CEMESC I )* 1= IL0* IHI ) 

PRINT  623* C IBEDC I ) * 1 = IL0» IHI ) 

PRINT  624*  C PERFACC I )*  I = IL0*  IHI  ) 

PRINT  634* C ATCFC I )* 1= IL0* IHI ) 
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TABLE  50  (Coat) 


550 
560 
570 
58  0 
590 
600 
610 
620 
630 
640 
650 
660 
670 
68  0 
69  0 
700 
710 
720 
730 
740 
750 
760 
770 
78  0 
790 
800 
810 
820 
830 

8 40 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 

9 60 
970 
980 
990 


100 

600 

601 

602 

603 

604 
606 

607 

608 

609 

610 
61  1 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 
63! 

632 

633 

634 


PRINT  625#!WR!I# 1 > , I = IL0# IH I ) 

PRINT  626#!WR!I#2)#I=IL0#IHI) 

PRINT  627# C TENAC! I» 1 ># I=IL0# IHI ) 

PRINT  628#  ! TENAC! I » 2)  » I = I L0#  IHI  ) 

PRINT  629# ! TENAC! I# 3)# I = IL0# IHI  ) 

PRINT  630# ( TENAC! I# 4)» I=IL0# IHI > 

PRINT  63  1 » ! TENAC! I#5)#I=IL0#IHI) 

PRINT  632# ! TENAC! I# 6># I =IL0# IHI  ) 

PRINT  633 
ST0P 

FORMAT!  5XA4) 

E0RMAT ( 1 X "NAS" 1 7X8 ! 1XA4, IX) ) 

F0RMATC V) 

FORMAT!  1X**PARKING  APRON  DEPTH  M8CF5.0»IX>) 

F0RMATC  1X"DAYS  0F  READY  FUEL  STORAGE:  '*/  1 7X*’JET  ”8  C F 4.  0#  2X  ) > 
FORMAT! 1 7X"AGAS  ”8!F4.0#2X>> 

F0RMATC 17X"HEL0  "8! F4. 0# 2X ) ) 

FORMAT! 1X"FUEL  LOSS  FACTORS: "/ 1 7X"JET"3X8 ( F3. 2# 3X ) ) 

FORMAT!  1 7X"AGAS"2X8( F3.2#  3X  ) ) 

FORMAT! I 7X"HEL0M2X8 ( F3 • 2> 3X ) ) 

FORMAT! 1X"ANNUAL  CLASS  UTILI Z . "8 C F6. 0 ) ) 

FORMAT!  1X"TENANT  DATA:  ”/4X  "ANN  UAL  CLASS  HRS  "2X8!  F4.0#2X>) 
FORMAT! 1 1 X"STUDEN  TS"2X8 ! F 5 • 0#  1X>> 

FORMAT! 1 1X"0FFICERS"2X8!F5.0# IX) ) 

FORMAT! 1 1X"ENLI STED"2X8!F5. 0# IX) ) 

FORMAT! 1 1X"CI VI L I AN"2X8 ! F 5. 0# IX) ) 

FORMAT! 1X"H0USING  DATA: "/2X "ZELL  I GI BL E ENLISTED  "8 ! F 4. 3# 2X ) ) 
FORMAT! 2X"ZENL.  REQ.  HOUSING  "8(F4.3#2X)) 

FORMAT! 2X"X0FF.  REQ.  HOUSING  "8!F4.3#2X)) 

FORMAT! 2X"XSTU.  REQ.  HOUSING  "8!F4.3#2X>) 

FORMAT! 2X"ZINELLI G*  ENLISTED  "8!F4.3#2X>) 

FORMAT! 1X"MESS  HALL  FACT0R"5X8 ! F3 . 2# 3X ) ) 

FORMAT! 1 X"DI S PENS ARY  1 = W/8EDS"3X8 ! I 1 # 5X ) ) 

FORMAT! 1X"ZBASE  REQ.  ADMIN  0FF  "8!F3.2#3X)> 

FORMAT! 1X"WINDR0SE  DATA  MAIN "3X8 ! F3.2#  3X) ) 

FORMAT! 1 0X"CR0SSWIND"3X8  < F3. 2# 3X ) ) 

FORMAT! 1X"TENANT  A/C  VF"5X8! F4. 0# 2X ) ) 

FORMAT!  1 4X”VT"5X8!F4.  0#  2X>> 

FORMAT! I 4X"VR"5X8 ! F 4. 0# 2X ) ) 

FORMAT! 1 4X"V0"5X8  < F 4. 0#  2X) ) 

FORMAT! 1 4X"VW"5X8 ! F 4. 0#  2X ) ) 

FORMAT! 14X"H"6X8! F4.0#2X) ) 

FORMAT!///) 

FORMAT!  1X"ALT- TEMP  CORRECTION  "8!F3.2#3X)> 

END 
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TABLE  51 


PROGRAM  INEILIST  LISTING 

100C THIS  PROGRAM  READS  C0ST  FILE  & PRINTS  EXISTING 

110C VALUES  IN  TABLE  IN  FORMATTED  OUTPUT 

120  DIMENSION  FAC0ST(50#6> 

130  NCAT=  30 

1 AO  OPENFILE  "I N VCO*" 

150  REWIND  "INVC0*" 

160  DO  10  1=1# NCAT 

170  10  READCINVCO*"#  6001LINE#  CFAC0STC  I#  J>#  J=  1#  6) 

180  CLOSEFILE  "INVC0*" 

190  PRINT  601 

200  DO  20  1 = 1#  NCAT 

210  20  PRINT  602# I # ( FAC0STC I , J># J= 1# 6) 

220  STOP 

230  600  F0RMAT<  V) 

2 AO  601  F0RMAT<  1 6X"FAC  I L I TY"8X"C0  ST- TI  ME"2X  "COST*’/  1 OX  "UN  I T" 

250  &2X,,SUPP0RT"1X"TYPICAL"1X"ADJUSTMENT"1X"TIME"1X"0&M"/ 

260  & 1X"FACILI  TY,,1X"C0ST,,2X,,FACT0R"2X,,SIZE,,AX"FACT0R"5X"C0DE" 

270  &1X"C0ST/UNIT"/1X8( 1 H- ) 1 X A< 1 H- ) 2X 6C 1 H- ) 2X 7( 1 H- ) 1 X 6( 1 H- ) 

275  *5X4( 1H-) 1X9C lH-)> 

230  602  FORMATf 3X12# 2XF8. 2# 1XFA.2# 3XF8. 0# 3XFA.2# 6XF2. 0# 2XF6. 2) 

290  END 


248 


